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002000 




M4CY11 301(1052) 22"iO¥-78 1S;35 P^GE 1 
1SS28 


»EiIBLE hMk 




.EMBUE IBS 




«iLISf HE^CiD^HD 


»s2000 




SfC 




SfCISSsO 

sfcfacso 




POIifER BGHSM^BSiSff^iSiDO 


BGMMOD MDHEDR 




H||g| ! 


CZRLB, 8,0,60,60,4, 


I ISC 


^5^ 


.kSC 


/L/ 


,ASC ! 


/B/ 


.Bffg 

Imqu 





8 


/B/ 


r 


-WOR) 




.mu) 


.PJIRD 


.iOR) 


»MOR 1 


-SDR) 


JSH 


.UQR 1 


•SLASf 






IwOR I 




aMOR 1 




1 188 i 


4DISPATCH 


sMOR 1 


1 


.MOR) 




.iOR) 


.B¥f ; 
,B¥f ; 


CSREVpiOH 


.HOR) 


6y 


.HQR) 


60 


.MOR) 




«MOR) 


Q 


.HOR) 
,IIOR } 





L$D¥T¥P 


.iOR) 





»MOR 


LSDR 


,MOR) 


^Idrst 


-MORD 
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111 
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SEQ 0031 



OQOOOQ 
000002 
000004 
000006 
000010 



.MORD 
.UORO 
.WORD 
oHORD 
«MORO 

EiDMQD 



1^" 



LSIMIf 
LSCLEAN 



<RL01> 
/RLOl/ 



OE¥REG 

.HORD 

,BLKW 

DEVTYP 

.ASCIZ 

.E¥EN 
BGHMOD GLBEQAt 

EQUALS 
DRDY=BIT0 
INTEN=B|T6 
ERR=BIfl5 
DERR=BIT14 
OPI=BIfi0 
CRDY=BIT7 
BA17=BIf5 
BA16=BIT4 
NXM=BIT13 
DSO=0 
DS1=BITB 
DS2=BIt9 
DS§=BIT8!BIT9 
NODP0=0 
HRCHK=BIfl 
GSTATSBIT2 
SEEK=BIT2!BIf 1 
RDHDR=Blf3 
HRITE=BIT3IBIT1 
READ=BIt3IBIT2 
RDNHD=BIT3iBIT2!BITl 
GQDR¥R=BIT1!BIT7 
DRS?=BIT3 
GSBIfsBITl 
MK=BIT0 
SIGM=BIT2 
RHHS=BIT6 
STHS=BIT6 
DAHS=BIT4 
;OFFSET FOR HARDMARE P- 

CSR=0 

¥ECT=2 

PRI0R=4 

DRBT=6 

CMT=10 



^OFFSET FOR SOFTMARE P-TABLE 



;DRIYE ready (RLCS) 
;lMfERRUPf ENABLE (RLCS) 

m"- 

"PERA 




1** 

(RLCS 



ERROR (RLCS) 

„ DRI¥E ERROR (RLCS) 

;OPEfiATIO!l INCOMPLETE (RLCS) 
;CONTROLLER READY (RLCS) 
jEXfEHDED ADDRESS BIT 17 
;EXTEHDED ADDRESS BIT 

;hon-existant memory 
;dri¥e select " ' — 
;dri¥e select 
;dri¥E select 
;dri¥e select ^ 

;FUHCTIOH-HOOPf 
;iiRITE CHECK FU..^ 
;GET STATUS FOMCf 
;SEEK FUMCTION 

;read header FUMCTIOW 
;write data function 
;read data function 

;READ il/0 HEADER YERIFICATIOM 
;CRDY AMD DRDY 
;dri¥e reset (RLDA) 
?GET STATUS BIT (RLD 
;MARKER bit (RLDA) 

;sign bit (rlda) 
;head select in read header 
jhead select in status back 
;head select in seek 

TABLE 



TION 
ION 



LDA) 



.MAIN- MACYll 30A(1052) 22-MOV-78 15:35 

CZRLBB.Pll 22-N0V-78 15s28 TABLE OF COHTENTS 



SEQ 0028 



GLOBAL DATA 
LIST TO CHEC 
BUFFER FOR R 
GLOBAL TEXT 
GLOBAL ERROR 
PITIALIZATI 
GLOBAL SUBRO 
ROUTINE TO C 
LOAD RLCS 

**TEST 1** - 



K HEADER COMPARE LOGIC 
EAD/HRITE 



**TEST 

**TEST 

**TES^ 

**TES 

**TES. _ 

**TEST 7 

**TEST " 

**TEST 

**TEST 

'**TEST 

**TEST 

**TEST 

**TEST 

**TEST 

**TEST 



T 4** - 
f 6** - 



- ** - 
9** - 
10** " 

n::: 

13** • 

14** ■ 

15** ■ 

6** ■ 



*TEST 1 

*TEST 18 

*TEST -- 



19** 

**TEST 20** 

**TEST 

**TEST 



**TEST 21** 



23** 
24** 



*TEST 

*TEST _ . 
**TEST 25** 
**TEST 26** 
**TEST 27** 
**TEST 28** 
**TEST 29** 
**TEST 30** 
**TEST 31** 
**TEST 32** 
**TEST 33** 
**TEST 34** 
**TEST 35** 

**TEST 

**TEST 
**TEST 
**TEST 
**TEST 
**TEST ._ 
**TEST 42** 
**TEST 43** 
**TEST 44** 
**TEST 45** 
**TEST 46** 
**TEST 47** 



CODE 
-IMES 
HECK FOR CONTROLLER ERRORS 

MRITE NPR INTEGRETY 
WRITE FUNCTION 
WRITE fUNCTION INTERRUPT 
PROPER INCREMENT OF RLBA ON WRITE 
PROPER INCREMENT OF RLDA ON WRITE 
FORCE HEADER NOT FOUND WITH WRITE 
FORCE HEADER NOT FOUND WITH WRITE INTERRUPT 
CHECK DPI TIME WITH HDR NT FND 
MULTIPLE SECTOR TRANSFER ON WRITE 
CHECK DIRECTION OF WRITE MPR 

■ CHECK FULL RLBA INCREMENT 
BA BIT 16 INCREMENT 

■ BA BIT 17 INCREMENT 

■ TEST READ NPR INTEGRITY 

■ READ FUNCTION 
READ FUNCTION INTERRUPT 

" CHECK READ NPR DIRECTION 

■ PROPER INCREMENT OF RLBA ON READ 

■ PROPER INCREMENT OF RLDA ON READ 

■ FORCE HEADER NOT FOUND WITH READ 

■ FORCE HEADER NOT FOUND WITH READ INTERRUPT 

■ CHECK HEADER COMPARE LOGIC 

■ CHECK MULTIPE SECTORS ON READ 
FORCE HDR NT FND AT END OF TRACK 
FORCE NON-EXISTANT MEMORY ERROR 

FORCE NON-EXISTANT MEMORY ERROR INTERRUPT 

■ CHECK READ WRITE LOOP 
CHECK SILO LINES 

CHECK THROUGHPUT OF SILO 
CHECK ZERO FILL ON WRITE 
CHECK SECTOR BITS OF HEADER COMPARE 



WRITE CHECK NPR INTEGRETY 

"-:~r CHECK ~:::-zz:: 

WRITE CHECK FUNCTION INTERRUPT 



WRITE CHECK FUNCTION 



36** 
37** 
38** 
39** 
40** 
41*- 



PROPER INCREMENT OF RLBA ON WRITE CHECK 

PROPER INCREMENT OF RLDA ON WRITE CHECK 

MULTIPLE SECTOR WRITE CHECK 

FORCE DCK WITH WRITE CHECK 

FORCE DCK WITH WRITE CHECK INTERRUPT 

CHECK ZERO FILL ON WRITE WITH WRITE CHECK 

EXTENDED CHECK OF WRITE CHECK FUNCTION 

EXTENDED CHECK OF WRITE CHECK FUNCTION 

READ WITHOUT HEADER COMPARE FUNCTION 

READ WITHOUT HEADER COMPARE FUNCTION INTERRUPT 

CHECK RD W/0 HDR CMP ACTUALLY READS 

CHECK RLBA INCREMENT WITH RD W/0 HDR CMP 

CHECK RLDA DOES INCREMENT WITH RD W/0 HDR CMP 
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SEQ 002 



DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 
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mm 



o|: 56 



00 



00 



\\\ mm 

36 OOQOOQ 

i ill 

1 11 

IS sisisi 

;,60 oooOoO 

66 QOoioO 

I I" '" 




32 OOOOOO 

46 oodood 

50 000000 
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iin 






DLMfslO 












EMOMOD 




BGMHOD 


GLBDAT 




.SBffL 


GLOBAL 


DATA 


W' 


.»OgD 
.UOR 1 
.WOR 1 


1 


CDCMT: 


.WQR) 


1 


ERRVEC: 


.WOR 1 


DRIVE: 

out: 


.»0R} 


' 


.W0R2 


UMITST: 
TRPFLG: 


.UOR 1 





.HOR 1 




.HOR) 


<.»0R 





SECMSK: 


■m\ 


120001 


CALBCC: 


.WOR 1 


g 


i 


.HOR 1 


.tfOR » 


8 


GDDAT: 


ItfOR ) 





\m\ 


.HOR 1 


g 


«tfOR 1 


.HOR 1 


( 


TEMP4: 


.HQR) 


1 


FIRST: 
CYLMSK: 


.IfOR 1 


, 


.»0R) 


77700 
^600 


MXSECl: 


.tfOR 1 


MAXSEC: 
DHORD: 


.MQR) 


:iSgl!! 


maxcyl: 


S?HD 


.IIOR) 





B.cs: 


.MQR 1 

:8gg 


i 


b.ba: 
B.0&: 


B«MP: 


.UOR 





E.cs: 


.MOR) 


J 


e.ba: 


.HOR 1 


e.da: 


.SOR) 




;.mp: 
;.Mpis 


• QOR 1 
.iOR 1 


g 


.tfOR) 





LCS: 


«tfOR 1 


1 


lba : 


.MOR } 


)LDA: 


.WOR 1 


RLMP: 


.WORD 






SEQ 0032 



lISTERRUPT OCCUR ANCI FLAG 
;LQCATIOI! TO FORM RLCS 
IMASK OUT SECTOR 
7P0LYM0MIAL FOR CRC 16 
;L0CATI0I USED BY "Sir 
—- " "SED BY «Sl 



;LOCATIOi USED BY 



MBCC" 
MBCC« 



JLOCATIOM USED BY "SIMBCC" 
;LOCATIOIi USED BY "SIMBCC" 
;LgCATIOM USED BY "SINBCC" 
IFIRST SECTOR READ 
>HI§^.SXEiMD|gJl2«HEAD SELECT 
;MAX sector ADDRESS 4-1 

;max sector address 
7diffbreice hord (seek) 




AT OCCURARCE OF 
AT OCCORAIcE of 



§ OF ERROR 

E OF El 



-RROR 
ERROR 
ERROR 
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35 " 



9m 




576 
600 



1 ®® 

86 002602 

;,87 002604 

88 002606 

89 002610 



bcsr: .word 

BVEC! -WORD 
BPRIOR: .UORD 
FMDFMC! .WORD 

xmem: .word 
tryfnc: .hord 
erflg: .word 

LOPIMX: .WORD 

LOPIMM: .WORD 

UOPIMX: .iORD 

U0PIM8: .WORD 

OPIMN: .WORD 

OPIMX: .MORO 

PHRFLG: .WORD 
T.CHTLR: 

derflgi .word 

erpoint: 

ercoumt: 



?0. 



SEQ 0033 



;CSR FROM P TABLE 
lYECTOR FROM P TAB 

;BR levevl 



FROMP TABLE 



»SBTTL 
HDRTAB: 



LIST TO CHECK HEADER COMPARE LOGIC 



lipp.n 



WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



?NALK 1 



7GR0U 1 



7737 



;grqw 



ISSEMBLir ROOfliiS UlCfil 

CZRLBB-Pll 22-iOf-7e 1§S2S 
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List fO CHiCIC HE£8Ei COHPAIti tmW 



SEQ 003^ 





}UkLK 



BDSiiOS 

• MOID 177577^11t3t7,ltS7Tf^l?S7t1^1737t7^1«tnt#lS'ltt1^1t?7n 

•»ORD 7777f^l7Tr74^17777i^l777ie^l77748*1777feylTfieO^ 177400 

.SOBD 177000,17600@^174®0®^i70e@@;lS00®0^140@00,3,7^17,37,77 

•MOID 177^377^777^1777^3777^7777^17777^37777^0 



.SBTTL 

Bors 



EIDMOD 

•SBfTL 

ii lllisi 047516 041440 047117 MORESs 



BorrsR roi RE£D/iiairB 

.BLKH 1024« 



GLOBiL TEIf 

fkllfl /MO COStaOLLER/ 
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SEQ 0035 




DRIfi/ 

7. eil'i 



/HO D 

Hi' 



%\k, 



I iKM/ 

', m, 

/ HNF/ 
/ OCK/ 

<15><12 
/ COMP/ 
/FORCED 
/MOOP " 



>gg»f§S 



SfitOS) CAUSED OTHER ERRORS/ 
•FLAG MODE/ 




/NOOP OPERAtlOII-INTR. . 

/READ HEADER QPERAffOM . ,^ 
/READ HEADER OPERAflON-Illf . 
/SEEK OP ERAT ION-FLAG MODE/ 
/SEEK QP|RAtION-INTS. MODE/ 
/GET SfAfOS 0PERA|I0II-FLAG MODE/ 
/GET STATUS OPERAT {ON-IRTR MODE/ 
/READ OPERATION-FLAG MODE/ 
/READ QPiRAT|ON-INTR MODE/ 
/WRITE OPERATION-FLAG MODE/ 
/MRITE gpERATION-IlfR MODE/ ^ 
IREAD H/0 HEADER - FLAG MODE! 
tREAQ N/g HEIDER - INTR MODE! 
/CAN^T SEE" 



/RLi 

}^8 



ERi 



TRACK 0/ 



_TE LOCK ERROR/ 
RLCS CONTAINED FOLLOWING ERROR (S): 



INTERRUPT 
AD OPERATI- 



, _ ^ _. OH READ QPERATIOH/ 

/READ OPERATION DID NOT URlfl MEMORY/ 
/RL6A DID NOT INCREMENT PROPERLY DURING READ, 
/SECTOR DID NOT INCREMENT PROPERLY AFTER REAI 
"" 'ADER NOT FOUND COULD NOT BE FORCE" 



/HEA 

/VRONG C¥ 



/HEADER NOT FOUNI 

/DRIVE re:~" — 

/DISK AD 
/DRIVE EL _ 
/NO INTERRUl 

/DISK ADDRESS CRLDA 
/HDR HOT FND COULD l. 
/NON-EIISTANT MEMORY 



^^T ON Milj 

OR"DlD"^NOf"lNCRl 
-nRiSS CRLr 



ED/ 



i, 



Ui NOT SET/ 

S AFTER MULTIPLE SECTOR READ/ 
PERATION/ 
B OPERATION/ 
NT PROPERL" ~ 
;MENT PRO"" 
-NCORREC 



ERfiPElLY^AlfiR^IIfE/ 



RBNENT PROPERLY AFTER VRIfE/ 

1 INCORRECT AFTER NULTIPLE SECTOR MRITE/ 

iOt BE FORCED AT END OF TRACK/ 

Y ERROR COULD NOT BE FORCED/ 
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SEQ 0036 



ISCIZ tDkfk COHP&RISOH EHBOR - 8EID/SRITE ERRORt 



/WRITE OPERATIOM MODIflgD M 



IRCRE 




TIAL SEetOa Mglii - ZERO FILL CHECK/ 
IMCREMENT PRgpliL¥/ 
iOt SET OH PCRImEHT/ 
ON BA16 INCREMENT tES 

liclEMillT, 

" '" T/ 



MOT SET I 

ERROR 

LUR 
LOR 



OT 




Hr 
ft 



ig^B, 



_. RACK/ 
FORCED/ 



IImI fiSEi 



iMiif 



7RE&D H/0 HDR ^^ 
7RLBA DID NQf pC, 
7RL0A Dtp MOT liCl 
/OPI TIMIIIG ERROR/ 
/WRITE CHECK NPR CAUSED 
/URlfg CHECK op NOT IIT 
"^'§A DID NOT pCRiMENT 

, -DA DID NOT Increment 

/RLDA DID NOT |mCrImENT 



URg^ 
„0R| - SECTOR/ 
US TRAP/ 



AFTER READ U/0 I 



AD.J/0 HDR CMP? 



CMP7 



mi}" 

.ROPERLY 
PROPERLY 
PROPERLY 



DUR 
DUR 
AFT! 



_ ^ ^- PARTIAL SECTOR ilRITE FAILURE/ 

MOf FORCf DCK ON HRITE CH— — 



8G URCHK/ 
N6 URCHK/ 
" A MULTIPLE SECTOR MRITE CHK/ 



FORC| ipTERR 
HECK rAILORE/ 



,.. - -HECK/ 

RIIUPT MfTH DCK Oi MRCHK/ 



C$MSG 



;IMCRENEMT ERROR AND CHECK LIMIT 



ASSEMBLY ROUTINES 
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SEQ 0037 



104023 



004737 
004737 

013746 



002166 
002170 

000004 

000012 

020126 



mm 

002170 



JSR 

JSR 

ENDMSG 
EHT 

BG«MSG ERR2 
JSR 



LIOOOIS 



M0¥ 
M0¥ 
M0¥ 
EMT 
ADD 



L10002! 



JSR 
ENDMSG 

EMT 

BGMMSG ERR3 

JSR 

JSR 

PRIHfB 

M0¥ 

M0¥ 

M0¥ 

MOV 

M0¥ 

MOV 

EMf 

ADD 

JSR 

EHDMSG 
L10003: 

EMT 

BGMMSG ERR4 

JSR 
JSR 



PCLINEl 
R5,CKERLf 

C$MSG 



;IIICREMEHT ERROR AND CHECK LIMIT 



uon PC,LINE1 

PRIMfB |FRMT4,GDDAT,BDDAT 

MOV BDDAf#-(SP) 

MOV GDDAT^-(SP) 

FRMT4^-(SP) 

P#RO 



n 



csNtb 

#10, SP 
RS^CKERLT 

C$MSG 

PCLINEl 

PC^LINE" 

IFRMTS,,... - 

50DAT/-?SP5 

BDDAT,-(SP) 

THPO^-CSP) 

|FRMf5^-(SP) 

SP£RO 

CSPNTB 

#!2,SP 

R5,CKERLT 



;IHCREMENf ERROR AND CHECK LIMIT 



#FftMf5,fMP0,BDDAf^GDDAT 
eODAT/-<SP) 



IIHCREMENT ERROR AMD CHECK LIMIT 



CSMSG 



PCLINEl 
PC£LIHE2 



PRINTS #FRMT4,GDDAT,BDDAT 
MOV BDDAT,-(SP) 
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SEQ 0038 



014424 

of' 





46 

Ji 



014450 004537 



000010 
020126 



mm 

014456 

ml 



104023 
004737 

I 
MM 

392 014506 004537 
396 014514 

l| mm Torn 

400 014524 004737 

403 014530 

0\ 5 1§|0 012746 

(65 014534 012746 _ 

n) 014540 015600 



104023 



404 
405 

406 014554 
" '■*'554 

554 104023 



015256 

ooooc 

000006 
020126 



015256 
015534 
015312 



\l\%t 



406 014< 

p «'♦ 

408 014' 



40 
40, 

lit 



014556 



014556 004537 020126 





MOV 
MOV 
EMf 
ADO 


#10,SP 




JSR 


RS^CKERLT 


L100043 


ENDMSG 
EM? 


CSMSG 


BGNMSG 


ERR5 






PRIMTB 

i 

I8S 


PC|.LIIIE1 
#6^3 




JSR 


R5/CKERL? 


L10005: 


EMDMSG 
EM? 


C$MSG 


B6MMSG 


ERR6 






ill 

JSR 


PCLINEl 




PRIMTB 

Kg; 

ADD 
JSR 


R5,CKERLT 


L10006: 


EMDMSG 
EM? 


C$MSG 


BGMMSG 


ERR7 






JSR 


RS^CKERLT 



) 



;IMCREMSN? ERROR AMD CHECK LIMIT 



;INCREMEM? ERROR AMD CHECK LIMI? 



;IHCREMEM? ERROR AMD CHECK LIMIT 



;IMCREMENT ERROR AMD CHECK LIMIT 



ASSEMBLY ROUTI 
CZRLBB«P11 



NES 
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Vl\ 



014562 
014562 
014562 



416 
417 
418 
419 



|0) 



(9) 

m 

\\\ 

Is 



pi 

\l{ 

43f 



014564 

014564 
014570 

014574 
014600 
014604 
014610 
4614 
4620 

Mil 



104023 



004737 
004737 

013746 
013746 

m 

010600 
104014 
062706 



015256 
015312 

mm 

000004 



000012 



1^ s 



014630 004537 020126 
014634 

014636 
4636 



104023 



14646 
14( 



884*?!? %mi\ 



010246 

mm 

10600 



014674 004537 



014700 
014700 
014700 

014702 



104023 



!il WM 



^nm 



0047 



iir \m nil! ii 



000003 



000010 
020126 



002162 



L10007! 



EMDMSG 

EMT C$MSG 



BGNMSG ERRS 

JSR 

JSR 

PRIHTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



El 



PC^LIME 
PC^rLINE 
#FRMT6,' 
BDDAT,- 

gddatJ- 

TMPl,-( 
#FRMT6>, 

CSPNTB 
#12^SP 



SEQ 0039 



i' 



P) 



GDDAT/BDDAT 



JSR R5,CKERLT 
ENDMSG 

EMT C$MSG 
BGMMSG ERR9 



;IMCREMENT ERROR AND CHECK LIMIT 



LlOOlO: 



JSR 

JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



JSR 

ENDMSG 

EMT 

BGNMSG ERRIO 

JSR 

JSR 

PRINTB 

MOV 

MOV 

MOV 



PCLIMEl 
PC^LINE2 
■*FRMT4 ' 



LlOOll: 



#FRMT4^TMP0,R2 
R2#-(SP) 

TMPOj;-(SP) 

#FRMf4jr-(SP) 



R5,CKERLT 
C$MSG 



;INCREMENT ERROR AND CHECK LIMIT 



PC, LINE! 
iDDAT/-CSP 



GDDAT,-(SP) 
TMP1,-(SP) 



MP1,GDDAT,BDDAT 
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#FRMT7*-(SP) 



SEQ 0040 



000014 



004537 020126 



MOV 
MOV 
MOV 
EMT 
ADD 



L10012: 



JSR 

ENDHSG 

EMT 

BGNHSG ERRll 

JSR 

JSR 

PRIMTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



L10013: 
BGNMSG 



-_-IOO 
015100 



JSR 

EHDMSG 

EMT 

ERR12 

JSR 

JSR 

PRIMTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 
EHDMSG 



RS^CKERLT 
C$MSG 



PCLINEl 

PciLIIIE2 

«rRMT8,TMP0, 

iDDAT/'CSP) 

GDDAT,-(SP) 

SP#R0 

CSPMTB 

#12^SP 



R5/CKERLT 
C$MSG 



;liiCREMENT ERROR AND CHECK LIMIT 



GDDAT^BODAT 



lINCREMEMT ERROR AND CHECK LIMIT 



PC^LIMEl 
PC LINE^ 

#fSmT9^TMP1,J13^GDDAT,BDDAT 
iDDAT,-(SP) 

gddat;-(sp) 

R3#-(SP> 

i^FRMfii-flp) 

CSPMTB 
#14,SP 

R5/CKERLT 
C$HSG 



;INCREMEMT ERROR AND CHECK LIMIT 



ASSEMBLY ROOTIMES 
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SEQ 0041 



015102 



015102 
015106 

mm 
mm 

015 26 
015 .32 
015134 
015136 



004737 015256 



mm 



000004 



000012 



015142 004537 020125 



811111 

015146 
015150 

mm 

015160 
015160 
015164 
015170 
015174 
015200 

11 



015 
015 



104023 



004737 
004737 



•56 
112 



746 
746 



81 

mm 

010600 
104014 



81 



88i?ii 



062706 000010 



015210 004537 020126 




104023 



81S?1i 

012746 

uim 

062706 
004537 

104023 



015256 
015312 



016723 
000002 



000006 
020126 



BGHMSG ERR13 

JSR 

PRIHTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



PCjrLINEl 
FRMTl" " 



L10015: 



ENT 



BGNMSG ERR14 

JSR 

JSR 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



L10016: 



-..J10/OPIMN^OPIMX#BDDAT 
iDDAT^-(SP) 
OPIMX,-CSP) 



L10017J 




R5,CKERLT 



CSMSG 



;INCREMEHT ERROR AND CHECK LIMIT 



PCLINEl 
PC#LINE2 
tFRMT14,TMPl,#BUF 

Ibuf^-csp) 
ImpiJ-csp) 

tFRMT14^-(SP) 

CSPMTB 
#10/SP 



JSR 

ENDMSG 

EMT 

ERR15 

JSR 

JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

ENDMSG 

EMT 



R5/CKERLT 



CSMSG 



PC/LINEl 
PC;LINE2 
|FRMT15^R2 

pfiSlisi-csp) 

SP#R0 
CSPMTB 
tfo/SP 
R5,CKERLT 



;INCREMENT ERROR AND CHECK LIMIT 



CSMSG 



ASSEMBLY ROUflHES 
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SEQ 0042 




LIME2: 



#FRMT1^RLCS^<B#DSI¥E*1> 
||0,SP 



) 



|FRMT2«|BEREG,iARLCS^B«CS#«&RLBil,B«BI 
B«BA,-CsPl 

#ARLCS#-(SP) 

|bereg^-(spS 

SP^RO 
CSPMTB 

fARLMP,-(SP> 
.DA.-tSP) 

IfRM?2L-(SP) 



|ARL0A,B»DS,$1RLHP,B«MP 



SP,RO 
CS|MtB 

FR^f2^|ArREG^#ARLCS^E«CS,#ARLBA,E»BA 

^..-_SL-(|p) 
s,cs#-fspi 
|arlcs,-csp) 
|afregI-(sp1 

IfRH?2;-(SP) 

Ip'rI^ 

CS^itB 
|FRi^f2B4#ARLDA,E«DA,#ARLMP,E«»IP,E.MPl,E.MP2 

i:SIH;:li?J 

E,MP,-(SP) 

#ARLHP<-(SP) 

I.DA^-CSP) 

!ARLDA,-(SP) 
FRMT2B^-(SP) 
P#RO 
CSPMTB 
#20, SP 
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SEQ 0043 




P) 



FRMT3^|EM1 

lRMfi,-(SI 

#R0 
PMTB 

D,SP 

FRMT3,#EM100 

EM100,-(SP> 

FRMT3^7(SP) 

P 



SPNTB 
6,SP 



csPntb 



/lACOHTROLLER: %06tA DRIVE: %01/ 

/%II%T%T%06%T%06/ 

/%T%06%T%06/ 

/%T%06%T%06%A %06%A %06/ 

/%NtT/ 

/%N%AEXP'D: %06%A REC'D: %06%H/ 

/%N%ALAST: %06%A PRES: ~"~ 

/%H%ABUS A— --'5-- """ 

/%N%AHORD* 

/%H%ADA: Io6IA REC'DTtOfifA EXP'D: 1061m/ ■ 

/%N|AUORDS written: %D3%A BOS AODRS %06«R/ 

/%mIakoros written: %d3%a bos addr: t06%A exp'd: %06%a rec'd: toetH/ 

/%H%ARANGE %D3%A - %D3%A MILLISECONDS WAS %D6%N/ 

/tAMAXIHUN TIHEOOT OF PROGRAM IS 3 SECONOStN/ 

/%H%AERROR LIMIT EXCEEDED - DROPPEDlN/ 

/%ADRIVE DID NOT RECOVER FROM POWER FAILURE/ 

/%H/ 

/%M%T%A - WILL MOT TEST%M/ 

/INIAPATTERN WAS: %06/ 



K¥'Vl 1U61A KKU'U: «U6%H/ 

1ST: %06%A PRES: %06%A EXP'D: %06%N/ 

[)S ADR: %06Ia EXP'D: l06lA REC'D: %06%N/ 

DRD: %P3%A EXP'D: t06%A REC'D: %06%N/ 

I: %06lA REC'D: %06tA EXP'D; %06%N/ 



L10020-L$HM/2 
-|4400 

_40 



1 



;csR 

; VECTOR 

^PRIORITY 

;DRIVE (BITS 8c9^10) 

5rlii=i RLV11=5 



016764 
016764 



EHDHW 
L10020: 



") 



ASSEMBLY ROUTINES HACYll 
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558 

m '''''' 

561 016764 



000005 
0000 



30A(1052) 22-M0V-78 15:35 
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EHDMOD 



PAGE 1-14 




027|^_ 
027412 
027650 
030250 
030672 
320 
1000 
432 
042 



BGMHOO SPfCOOE 
BGHSM 



.WORD L10021-L$SH/2 



drop: .HORD 
MERLMT3 .HORO 
T.SIZE3 .HQRD 





J"- 

t.DMP: .MORD 
T.LMT: .WORD 



ENDSH 
L10021: 



BGHMOD DSPCODE 



DISPATCH 



• WORD 
-WORD 



ROUTINES 
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SEQ 0045 



«SBTTL 
BGHMOD 



002304 



002314 



000036 



STARTl: 
1$: 




IMITIALIZATIOH CODE 

IHITCODE 

BGNIHIT 



SETPRI 

MOV 

EMT 



|pRI07,R0 
CSSPRI 



nmi 



103447 



MOV 
EMT 

BCOMPLETE 
BCS COMT 



CONTIMOET 
#ERCOUNT/R0 
|64.,R1 
(RO)* 

1$ 
START 

readef |£f. continue 
Ief.cohtikue^ro 

CSREFG 

CONT 



READEF #EF.PHR 

MOV |ef.psr,ro 

EMT CSREFG 

BHCOMPLETE NOPMR 

BCC HOPWR 

MOV L^UNIT,PHRFLG 

BR CONT 

READEF IeF. RESTART 

MOV Ief.restart^ro 

EMT CSREFG 
BCOMPLETE STARTl 

BCS STARTl 

READEF #EF. START 

MOV tEF.START^RO 

EMT CSREFG 
BNCOMPLETE COHTINUET 

BCC 

MOV 
MOV 
CLR 
DEC 
BNE 

BR 
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m 



mm 



005 



737 

: 7|4i onU] 



.-_ Q17466 

iii l\m 

§45 017500 

^46 017502 

■7 017510 



11 

649 
650 



m 



017520 



404 
737 
415 



811??? 



002136 
7777 

mi 

2140 

mi 




002132 
002142 
007052 



»140 
002312 



NXT: 
START; 



2S: 



002126 



nm', mm '" 



fST 

BNE 
MOV 
MOV 
MOV 

INC 

ADO 
DEC 
GPHARD 



OUT 
XXX 
#-1^0BITST 



Lsyii 



,SUIIIT,U0T 
ERCOUiT-2/ERPOIMT 



UMITST 
i2|;ERP0INT 



MOV 

EMT 

BCOMPL 

BCS 

TST 

BEQ 

DEC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 
MOV 
ADD 
MOV 
ADD 
MOV 
ADD 
MOV 

TST 
BNE 
TST 

m 

SBTVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 

CLRVEC 

MOV 

EMT 

TST 



UMiTST/Rg 

unitstSro 

C$GPHRD 
ETE 

PHRFLG 
NXT 

PHRFLG 
NXT 

(RO 
CRO 
(RO 
(RO 



MOV 
BIS 



2$ 



4-,BCSR 
*/BVEC 
♦,BPRIOR 



*#ORIVE 



STLR 



BCSR,RO 



RO^RLCS 

|2,R0 

RO/RLBA 



I 



,R0 
/RLDA 

0/RLMP 



PtfRFLG 

5$ 

T.SIZE 

tIpflg 



ERRVEC,#TRPHAM^#340 



TRpfiAM^-(SP) 
_RRVEC,-(SP) 



ERRVEC 
ERRVEC/RO 



3 II 



CSCVEC 
TRP"" - 



RPFLG 
ORES^«HY 



#200,8RLCS 
DRIVE, @RLCS 



SEQ 0046 



;DOIIE mTH ALE. UMITS 

mo 



;get bus address 
;get vector 

;C|l PRIORITY 

SgEI DRIVE 

$6ET CONTROLLER TYPE 

;CREATE REGISTERS 



;do he hamt to check units?? 

;Np 

;CLB*R OUT TRAP INDICATOR 

ISETOP TO CATCH TIMEOUT 



>ACCESS CONTROLLER 



;did trap occur?? 
;n0, check drive 



;MOH CHECK DRIVE FOR READY 
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SEQ 0047 



032777 




000001 
007070 

000002 
000006 

002304 

000200 
002134 
000074 

000012 

000001 



016667 
000001 



000004 



00OO04 
015256 



002140 



017236 

002276 
002274 
002306 



oo: 
oo! 



002 



272 
270 

111 



162506 
002126 



\m 



162406 



002 
002 



too 

(02 



002300 
002302 



8$: 



5$: 



3$S 



6$: 



1$: 



BIT 

BNE 

MOV 

PRIMTB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BR 

TST 

BEQ 

MOV 

BIS 

MOV 

MAITMS 

MOV 

EMT 

BIT 

BNE 

DEC 

BNE 

PRIHTF 

MOV 

MOV 

MOV 

EMT 

ADO 

PRIHTF 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

DODO 

MOV 

EMT 

DOCLH 

EMT 

JMP 

MOV 
MOV 
TST 
BNE 
MOV 
MOV 

SETVEC 
MOV 
MOV 
MOV 



L,8RLCS 

loRDY^SfHY 
^RMTlS^yHY 



Mfl3gyHY 
fiTI3,-(S 



FR 

HY,-i_- , 

FRfiTi3,-(SP) 
f2'o^Sp5 
SP^RO 
CSPNTB 



||,SP 



PWRFLG 

END 

#200#@RLCS 

drive#|rlcs 




(SP) 



lijSRLCS 

!FRMT99 
FRMT99^- 

CSPNTF 
#^£SP 
|FRMT98 
|fRMT98«-(SP) 

SP£R0 

CSPNTF 

|4,SP 

PC«LINE1 

UHITST 

UNITST/RO 

CSDODU 

CSDCLN 
NXT 

UOPIMN^OPIMN 
OOPIMX^OPIMX 
T.CNTLR 

l5pimn,qpimm 
lopimx^opimx 



;POMER UP 
;N0 



;RL11?? 

;yes, them keep limits set 



BVEC,#INTSRV,#340 

INT§iL-(SP) 
VEC/-(SP) 



) 
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000003 



SEQ 0048 



OO0SJ8 162176 1$ 



000100 162166 





MOV 
EMT 
ADD 


#10^SP 


L10022: 


ENDIHIT 

EMT 

ENDMOD 


CSINIT 


BGNMOD 


CLNCODE 
BGNCLN 




is: 


SETVEC 

MOV 

MOV 

MOV 

MOV 

i 

BEQ 


RRVEC|i|RPHAN^#340 
CR6y,§RLCS 




BIC 


#INTEN,§RLCS 


2$: 


CLRVEC 

MOV 

EMT 

TST 

BEQ 

DEC 


BVEC 
BVECfRO 

ERRVEC 

ERRVECRO 

C$CVEC 


L10023: 


EHDCLN 

EMT 

ENDMOD 


C$CLEAN 


BGNMOD 


DRPCODE 

B6NDU 

NOP 




L10024: 


ENDDU 





EMT 



C$DU 



ROUTINES 
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020110 



005237 

mm 

000240 
104020 
103427 
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SEQ 0049 



005237 002144 



000002 



013700 
104053 

104044 
000205 



002144 



016766 



162144 
162140 



mm 

002140 



016770 



ENDMOD 






.SBTTL 
BGNMOD 


GLOBAL 
GLBSUB 


SUBROUTINES 


BGNSRV 






INTSRV: 


INC 
ENDSRV 


INTFLG 


L10025: 


RTI 




;ROUTINE USED IN TIMING DPI 


TIMSRV: 


INC 


^^|NTFLG 




BORTWI 




:mt 


CSABRT 




RTI 




CKERLT: 


INLOOP 






EMT 


CSINLP 




BCOMPLETE 99S 




BCS 


99S 




TST 


DROP 




BEQ 


99$ 

aerpoint 
Ierpoint^merlmt 




INC 




CMP 




BLT 




PRINTF 


#FRMT11 




MOV 


Ifr_«tii5-(sp) 

ipS?F 

IcJl nei 

UNIT T ;drop T1 
UNITST^RO 




MOV 
MOV 
EMT 




ADD 




JSR 




88?" 




EMT 


CSDODU 




DOCLN 






EMT 


c$dcln 



ISET INTERRUPT OCCURANCE FLAG 



99$: 



RTS 



.SBTTL ROUTINE TO CHECK FOR CONTROLLER ERRORS 

J*THIS ROUTINE WILL CHECK RLCS FOR ERRORS AND PRINT THEM 
;*ACCORDINGLY. IT WILL MERGE THE ERROR PRINTOUT MITH THE TEST 
;*ERROR MESSAGE. 



JkSSEMBLY ROUfI 
CZRLBB.Pll 



HES 
22-MOV-78 



MICYII 301(1052) 22-H0y-78 15:35 PI6E 1-20 

15:28 ROOTIME TO CHECK FOR COMTROLLER ERRORS 



;*RQUTIHE USES RO^Rl IHD PICKS HEIDER rROM R3 
-* 

;* C^LL JSR RS^CHERR 



SEQ 0050 



tfCRC 



6000,E.CS 



ERR^E.CS 




;CHECK CMTLR FOR ERRORS 



Rl) 

j00.#LF,ERR6 

TSERCODE 

300 



Ool HHICH 



T? 



I AMY ERROR 

|YiS£fIND 01 

IHO EXIf 

7GE? sflRf OF STRINC 

lis COMPOSIfS ERROR SET? 

;!f'S BOf SOMEfHIMG IS " 

flflfipF^ ^COMP" IM It 

>DRI¥E ERROR SET? 
;RQ, COMflHUE 

;YES* PUT "DRV" IMTO STRIMG 
;"DR¥" 

; mom-ex i stemt memory error? 
;mo^ cohtirue 

SpSg^PUT "MXH" IMTO STRIHG 
IIS OPI SET? 

}nQ. GO check bits U 4 12 

-""* -. lUYO STRIMG 



RING 



;P0f « 
>"OPI" 



OPI" 



;heidercrc error? 

}md, go check header mot foumo 

|g0 pot "hcrc" im strimg 

{"HCRC" 

;HEIDBR MOT fOpD? 

;ho£ go pot *«crlf^ im strimg 

»PUf "HMF" IM STRIMG 

>"HHF" 

;POT «CRLF" IM STRIMG 

;data crc error? 

>m0, go check data late 

"DCK" IM STRIMG 



;PUT 

;^dck" 

;data late error? 

>M0# GO POT IM "CRLF" 
;POf "DLT" IM STRIMG 
s"ni.T« 



IMTO STRIMG 



;"DLT' 
;POT "CRLF 
1"CRLF" 
;M09E HEADER 
IHEADER FROM TEST 
;P0T TERMIHATOR IM 
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SEQ 0051 




.MORD LF 
.WORD ERR6 
RTS R5 



;exit routine 



ROUTINE TO LOAD RLCS WITH FUMCTIOM TO BE PERFORMED 

CALL: JSR R5/LDFUMC JLOAD THE FUMCTIOM IM MEXT WORD 

-MORD ;BITS TO BE LOADED, FUMCTIOM 

;AMD INTR EMABLE ONLY 



161556 LDFUSC: 



6S: 



5$: 



is: 



2$: 



3$: 



002146 
002146 
161346 

161334 4$: 



BIT 
BEQ 
MOV 
MOV 
MOV 
BIS 
MOV 
BIT 
BEQ 
MOV 
MOV 
MOV 
BIC 
MOV 
BIC 
MOV 
ASR 
BEQ 
CMP 
DEC 
BME 
BIT 
BEQ 
TST 
MOV 
MOV 
MOV 
BIS 
CLR 
BIS 
BIS 
MOV 
JSR 
BIC 
HOV 
RTS 



hdrlst: mqpmes 

MOPINT 
MCKMES 
aCKINT 



if" 



14,gRLCS 



RLDAfB.DA 
fUfgRLDA 
i200#B.CS 
DRIVEeB-CS 

b«cs,|rlcs 

#200,iRLCS 

B.DA^gRLDA 
(R5)*,LDCSR 
R3,-(SP) 
#177661^LDCSR 

ldcsr,fmdfmc 

#inten,fndfmc 

|hdrlst,r3 

FHDFMC 

(R3)*,(R3)* 
FMDFNC 

llMTEM^LDCSR 



R3)* 
3^RESTM 



R3^RESfMS 

R3,TRYFMC 

XMEM^LDCSR 

XMEM 

DRIVE^LDCSR 

pOOjrLDCSR 

LDCSR,|RLCS 

RS^BEFORE 

#200,§RLCS 

(SP)*^R3 

R5 



IDRIVE ERROR SET 



GET BITS TO LOAD 

SAVE R3 

CLEAR ALL BUT FUMC & IHTR EH 

SAVE FUMCTIOM 

OMLY FUMCTIOM 

GET HEADER LIST 

ALIGM TO LEFT 

IF EQUAL TO ZERO* SET R3 

BUMP R3 BY 4 



dec fumctiom 

foumd it? mo-go back 
/yes# do he »amt flag or imtr? 
;flag branch 
;ihtr point to that one 
;set header 
;set up header 
;save header for later 
;load e,a, bits 
;clear out the bits 
;select drive 

;load function 
;read registers 
;issue command 

;REST0RE R3 
;EXIT 
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•) IS ii M 

^ 874 020730 007715 

i m m\ 

i?s IWti 81 sill 

882 020750 010247 




-^0760 10 

020762 000205 



SEQ 0052 



6STMES 
GSTINT 
SEKMES 
SEKINT 
RHDMES 
RHDINT 
HRtMES 
MRflH? 
RDDMES 
RDOIHt 
RDRHES 
RDMXMT 

« ft 6ft «««*««*« ft ft «««&«« ft *ft«r ft ft *ii^ft*1lr«td«r««r«« 6ft «ft«fta«r*ft«*«<tft««r«tflt««ftft« ft «t 

;*RO0TINE fO MOVE ASCII STRINGS 

;«USES REGISTERS Rl ~ MHERE STRIiG IS BEIHG BUILT 

b „ 

; ADDRESS or STRIMG TO MOVE 



JSR 
.WORD 



R5#riX 



FIXS 
1$S 



MOV 
MOVB 

RTS 



(R5)*,R4 
|R4)*>(R1)* 



;6ET ADDRESS AND MOVE 
|G|t BYTE AND UPDATE 
IHlTCH ~" 

;back up 
;exit 



RETURN 



BYTE TERMIi 
OVER ZERO ' 



m" 




5 

Q4r 



161252 
161236 



017737 161220 

012232 i6*|l^ 

,-, 017737 J6lf54 

046 01773^ *--*s. 

1062 00020 



002226 
002230 
-.x»x- 0022|2 
1^1554 002234 
161176 002236 
161170 002240 



;ROUTIIIE TO READ REGISTERS PRIOR TO OPERATION 
;CALL: JSR R5, BEFORE 



BEFORE! 



MOV 
MOV 
MOV 
MOV 
RTS 



gRLCS^B.CS 



irlba^b.ba 
|rlda,b.da 
Irlmp^b.mp 



7READ CS 

I BA 

; da 

? MP 



;RgUTINE JO READ REGISTERS AT TIME OF ERROR 



;CALL: JSR 



AFTER: 



MOV 
MOV 
MOV 
MOV 
MOV 
NOV 
RTS 



|RLCS,E.CS 
§RLBA,E.BA 

Irlda^e.da 
IrlmpJe.mp 
§rlmp,e.mpi 

|rLMP/E.HP2 



;read CS 

; BA 

; DA 

} MP 

; MP 

; MP 



010046 

Imt 

012537 

m 

013700 



002172 

002154 
002176 



SIMBCC! MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

1$: CLR 
MOV 




TEMP4/R0 



;save RO 

;SAVE Rl 

;SAVE R2 

;GET NUMBER OF BITS 

;GET DATA FOR CRC CALCULATION 

^GET STARTING CRC 

;GET PRESENT CRC 



ASSEMBLY ROUTINES 
CZRLBBoPll 22-N0V-78 



MACYll 30A(1052) 22-N0V-78 
15:28 LOAD RLCS 




002174 
000001 



002154 
002152 



002154 



mm 

002176 



002154 
002152 



002152 



mm 



000024 



mm 



2$: 



002176 



002176 002156 



ROR 
ADC 
BIT 
BEQ 
COM 
MOV 
COM 
BIC 
CLC 
ROR 
MOV 
MOV 
MOV 
BIC 
BIC 
BIS 
BIC 
BIS 
DEC 
BHE 

MOV 

!I8I! 

MOV 
RTS 



15:35 PAGE 1-23 



TEMP3 
RO 

|Lro 
bScfbk 

XPOLY/RO 
RO 

ro#bccfbk 

TEMP4 
BCCFBK-rRO 

Rl^RO 

BCCFBK,R2 

R2fcR0 

XP0LY/TEMP4 

R0,TEHP4 

T|MP2 



TEMP4^CALBCC 
'SP)- "•* 
SP) 



fJ+zR? 

pUJr! 

pJ^^-RO 



SEQ 0053 



;rotate neu data 
;mer6e new mith old 

IBIT SET 

>IF NOT CONTINUE 

JGET CRC POLYNOMIAL CCRC-16) 
^COMPLIMENT POLYNOMIAL 

;CLEAR CARRY 



;retorn 



^ROUTINE TO SIAIT FOR DRIVE READY 



160772 



ntdrdy: 
is: 



MOV 
BIT 
BNE 

MAITUS 

MOV 

EMT 

DEC 

BNE 

ERRDF 

TRAP 

«HORD 

«UQRD 

.WORD 

RTS 



#100. ,R1 

Idrdy,§rlcs 



C$Mt 



.RO 



6K 

Rl 
1$ 

200.#DRTIM^ERR5 

fSERCO"" 

200 

DRTIM 

ERR5 

R5 



CODE 



2$: 

;RO0TINE TO WAIT FOR CONTROLLER 



160732 



mtcrdy: 
1$: 



MOV 
BIT 
BHE 



400, ,R1 
"RDY^gRLCS 



ROUTINES 
?11 22-HOV-78 



H&CYll 
15S28 



21444 
1450 
1450 
1452 



002142 




30A(1052) 22-HOV-78 15s 35 PAGE 1-24 
LOAD RLCS 



SEQ 0054 



000001 
000013 
020456 

021276 



020214 



020456 



021276 



104010 
000164 



004537 020214 



,R0 



»AI?US 

MO? »£Vafn 

EMT cImTU 

DEC Rl 

BME l| 

JSR RS/AFTER 



2$S 



hdhohe: 



ERRDr 

TRAP 

.WORD 

»IIORD 

.WORD 

RfS 

JSR 
RfS 



IMC 

Rfl 



fSERCi 

100 

CRTIM 

ERR5 

R5 



R5/AFfER 
R5 



CRTIM^ERRS 
ODE 



BGHSEG 

EMT CSBSEG 
;ISSOE DRI¥E RESET 



;%%SfARf OF SEGMEIiftt 



mm 



104010 
000154 



MOV 
MOV 
JSR 

ESCAPE 

EMT 

.»ORD 

JSR 

ESCAPE 

EMT 

otlORD 



JSR 

RDHDR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.UORD 

JSR 
ESCAPE 

EMT 
.WORD 



IjrERFLG JSET ERROR FLAG 
yRSfiMKlGSBIT^gftLDA 



5,LDF0flC 

R5,MfCRD¥ 
SEG 

R5#CHERR 
SEG 



R5,LDF0MC 

SEG 

CSESCAPE 

10000S-. 

R5,MTCRD¥ 

SEG 

CSESCAPE 

10000S-- 

R5|-CHERR 
SEG 



;L0AD the FOiCflOM IM MEXT WORD 
;CHECK FOR FL:LO£, ELSE EXIT SEG 



ICHECK CMTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EOT S£G 



;LOiD THE FUiCTIOH IM MEXf MORD 
;CHECK FOR FL:L0E^ ELSE EXIT SEG 

>CHECK FOR FL:L0E# ELSE EXIT SEG 

JCHECK CMTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



ASSEMBLY ROUTINES 
CZRLBB-Pll 22-H0V-78 



MACYll 30A<1052) 22-NOV-78 15:35 PAGE 1-25 
15:28 LOAD RLCS 



SEQ 0055 



1035 



ISOO 
1506 



540 



21560 
h564 



IWe 



021616 
021616 
021620 



013737 
042737 

onm 

012777 
053777 

004537 
000006 
004537 

104010 
000076 



004537 020214 

104010 
000066 

004537 
000"^- 
004 



T,m 



004537 

104010 
000040 

urn 

001404 



104462 
000620 
010303 
014244 



104010 
000006 



002234 002160 

000077 002160 

000100 002160 

000001 160540 

002160 160532 

020456 

021276 



020456 
021276 



002234 002160 
002150 002160 



99$: 



1$: 



MOV 
BIC 
BEQ 
BIC 
MOV 
BIS 

JSR 

SEEK 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT 
.WORD 

JSR 

RDHDR 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
BIC 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

ESCAPE 

EMT 

.WORD 



021622 005037 002266 



E.MP^TMPO 
#77^TMP0 

99$ 
|100,TMPO 

Imk^Irlda 

TMPO/gRLDA 

R5/LDF0MC 

R5i-WTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5*CHERR 
SEG 

CSESCAPE 
10000$-. 

R5,LDFUMC 

R5/WTCRDY 

SEG 

CSESCAPE 

10000$-- 

R5#CHERR 

SEG 

C5ESCAPE 

10000S-. 

E.MP,TMP0 

SECHSK/TMPO 

1$ 

400.,SKHOME^E 

TSERCODE 

400 

SKHOME 

ERRO 

SEG 

CSESCAPE 

10000$-. 

ERFLG 



;GET HEADER 

;SEEK IS NOT NECESSARY 



;SET TO SEEK 

;SET IN DIFFERENCE 



;L0AD the function in next WORD 
;CHECK for FL:L0E^ else exit SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:L0E^ ELSE EXIT SEG 



;L0AD the FUNCTION IN NEXT WORD 
;CHECK FOR FL:L0E/ else exit SEG 



;get header 
;ignore sector 
;0N zero 

;CAN'T seek to track 



;CflECK FOR FL:L0E^ ELSE EXIT SEG 
;INDICATE SUCCESS BACK TO MAIN PROGRAM 



021630 
021632 



104005 
000207 



10000$: 



ENDSEG 

EMT C$ESEG 

RTS PC 

ENOMOD 



;%%END OF SEGMENT%% 



ROUTINES 
Pll 22-M0V-78 



104462 
000000 
007172 
014456 

013700 



021356 




MACYll 30A(1052) 22-M0V-78 15:35 PAGE 1-26 
15528 **TESf 1** - MRITE NPR IMTEGRETY 



SEQ 0056 



021016 



002132 



«SBTTL 
BGHTST 



**TEST 1** - WRITE MPR IHTEGRETY 



;**S?&RT OF TEST** 



?CHECK THJiT NPR WILL MOT _ 
;UNiBUS. UE SET UP LOCATION 



INTERFERE lilTH THE QPERATIOH OF THE 

^ . :r:" 4 to handle the trap if it happens- 

§f ARS 



is: 



160332 
160324 



160230 5S: 



6$: 



JSR 

ckerfg 

EMT 
.HORD 

BGNSEG 
EMT 

SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

MOV 

CLR 

MOV 

CLR 

MOV 

BIS 

JSR 

MOV 

BIS 

BIC 

MOV 

MOV 

BIT 

BNE 

UAITUS 

MOV 

EMT 

DEC 

BNE 

JSR 

ERRDF 

TRAP 

.WORD 

.iiORD 

.WORD 

CLRVEC 

MOV 



PCHDHOME 

mm.. 



;HEADS OVER TRACK 
; HEADS GO HOME OKAY 



CSBSEG 

ERRVECj|TRPHAM^#340 
TRPfiAL-CSP) 
RRVEC£-(SP) 

tlOfcSP 
TRPFLG 
IBUFfgRLBA 

Irlda 

DRIVEcGDDAT 

Imrite,gddat 

RSiBEFORE 

GDDATfB.CS 

POUB.CS 

fopf^B.CS 

GDOAT/gRLCS 

#100. ^Rl 

ICRDY^SRLCS 




R5, AFTER 

0wCRTIM,ERR5 

TSERCODE 



CRTIM 

ERRS 

ERRVEC 

ERRVECRO 



;%%START OF SEGMENT%% 
;SET UP FOR TRAP 



;CLEAR TRAP OCCURANCE 
;BUS ADDRESS 



ILOAO DISK ADDRESS 
JHQRD COUNT OF 1 
;SET UP CSR TO LOAD 



IN DRIVE 
IN FU 



;SET iN fUNCTION 

;LOAD FOR ERROR PRINTOUT 

;SET IN COMMAND 

;LOAD CRDY 

;CLEAR (BIT 10) 

;IS5yE URITE 

;«ait for crdy 
;npr done 

iVESi- 6S 
IWAIT A WHILE 



;a while up 
;no, go back 



;C0HTR0LLER TIMED OUT 



ICLEAR VECTOR 



ASSEMBLY ROUTINES 
CZRLBB»P11 22-MOV-78 

(3) 022046 104036 



M 



•in 

f052 
!Q54 

!066 



02207^ 
022076 



?072 
^-74 



6 

052576 
022100 

8iil88 

022102 
022102 



022102 



\n 
spfp 

022126 



104010 
000024 

mm 

004537 

WW 

014244 



104005 



104001 



n 



4032 
0126 



104004 



005077 
012777 



MACYll 30A(1052) 
15:28 « 



002142 
021016 



004737 021356 



i^m 



22-N0V-78 
*TEST 1** - 



15:35 PAGE 1-27 
WRITE NPR IHTEGRETY 



7$: 



lOOOls: 



EMT 

ESCAPE 
EMT 
.WORD 

TST 

BEQ 

JSR 

ERRSF 

TRAP 

.WORD 

.WORD 

.WORD 



ENDSEG 

EMT 



CSCVEC 
SEG 

CSESCAPE 
10001S-- 

TRPFLG 

R5/AFTER 

1-#EM51#ERR0 

TSERCODE 

EM51 
ERRO 



CSESEG 



SEQ 0057 



;CHECK FOR FLSLOE, ELSE EXIT SEG 



;did trap occur? 
;N0 



ENDTST 
L10026: 



«SBTTL 
BGHTST 



EMT 
**TEST 



C$ETST 
2** - WRITE FUNCTION 



;TRAP ON WRITE 



;%%END OF SEGMENT%% 



;**END OF TEST** 



;**START OF TEST** 



;check of write logic under flag mode, we will first issue a 
;read header so that we don^t write on the bad sector 



WE will write a full sector 



.. (128 WORDS) 

WE CHECK THAT NO ERRORS OCCUR. IF WE 



;FILE TRACK. 

;MEM0RY (BUF)_ ^ _ ^ _ ., __ 

Shave a drive error we will do a *»get status" to see 
;iF write protect is set if it is we will abort the 
;test- an error on the write will loop on just the 
JwritI portion, loop on test will read header^ seek 
Shecessary) and write. 



(IF 



> ft* *«r*«*«««1i! «««««««««««:««:«««« «*ft«A«ft«««r*«r«&ftft-»««««««'ftr«*fti<k««r«1k««« 



JSR PC/HDHOME 

CKERFG 

EMT CSEXIT 

.WORD L10027-. 

BGNSEG 
EMT 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



CSBSEG 



;%%START OF SEGMENTIt 



3$: 



160114 



CLR 
MOV 



|RLDA 



128.,@RLMP 



;SET DISK ADDRESS 
?WORD COUNT 



ASSEMBLY ROUTIHES 

CZRLBB«P11 22-MOV-78 15:28 



MiCYll 30A(1052) 22-MOV-7B 
**tESf 2** - 




1149 



1 55 
56 



11 
1162 



134 012777 

lu mm 

50 004537 

I mm 

022160 032777 

022166 001425 

022202 OOOQ04 

022204 004537 

mm J8JSJS 



022246 
022246 



022246 



003052 
020456 



021276 



000003 
020456 

021276 



160102 



040000 160054 



160050 



\i l\m mm mm 

30 001404 



34 OOQOOl 
36 010331 
40 014244 



104005 
104001 



4S: 



MOV 
JSR 
SRITE 

JSR 

ESCAPE 
EMf 
-aORD 



BIT 

BEQ 

MOV 
JSR 

sm" 

ESCAPE 

EMT 

«WORD 

MOV 
BIT 
BEQ 



ERRSr 

TRAP 

.liORD 

.WORD 

.MORD 



15S35 PAGE 1-28 
MRIfE FUSCTIOM 

IBUF^gRLBA 
RS^LDFUBC 



SE@ 0058 



10000$: 

EMDTSt 
L10027S 



EMT 



EMT 



RSirMTCRDV 
SE6 

CSESCAPE 
10000S-* 



lOERR/gRLCS 



;bus address 

;t(MD THE rUMCflOM IH iEXT MORD 
?IIRIfE 

;IIAIf FOR CQITROLLER READY 
;CHECS FOR FLlLOE, ELSE EKIT SEG 



;DRIVE ERROR SET? 
iBRAiCH IF MOT 



Imkigsbit^srlda ;set get status of drive 

R5,LDF0MC '" "■'" * 



R5,IITCRDY 
SEG 

CSESCAPE 
10000S-, 

E.MP*GDDAT 
fBITll^GDDAf 

3.£liRLOCK,ERR0 
fSERCODE 

WRLOCK 
ERRO 



C$ESEG 



ILOAO THE FUMCTIOM IN MEXT WORD 
, _^f STAfOS 
lUAIT FOR CORTROLLER READY 



ICHECK FOR FLsLOi^ ELSE EXIT SEG 



IREAD DRIVE STATUS 
IMRITE LOCK ERROR? 
■- -RAM^" 



}nO, BRlMCH 



IMRITE LOCK ERROR 



|%1EMD OF SEGMEMT%% 
;**EliD OF TEST** 



CSETST 



**TEST 3** - BRITE FUMCTIOM IMTERRUPT 

|**START OF TEST** 



»SBTTL 
BGMTST 
STARS 

• • ft* ft ft «««««« Aft ft «d««r«r«A««ftftft«««**ft«««««»ft«tft«tt ««*«««« «r*ft*«tt««rft«ft«d« 

;CHECK OF HRITE LOGIC UNDER IMTERRUPT MODE, HE HILL ISSUE A 
;READ HEADER SO THAT HE DON'T URITE OH THE BAD SECTOR FILE 

HE MILL HRITE A FULL SECTOR (128 HORDS) FROM MEMORY (BUF)e 
„...„ .._ jj^ ^Q^ CHECK RLDA OR RLBA 



;track. 

;HE check that NO ERRORS OCCUR. 
;I8CREMEMT at THIS TIME» 
STARS 

; 



(*«rft*ftft**ftftftftft 



tftftft«ftftftftft«r«rftftftft*ftftftft««rftft«ftftftftft«ft«ftftftftftft«ft«ftftftft«ftft 



ASSEMBLY ROOfI 
CZRLBB.Pll 



NES 
22-M0V-78 




MACYll 30A(1052) 
15:28 * 



021356 



22-II0V-78 
srfEST 3** - 



15:35 PAGE 1-29 

HRITE FUSCTIOM IMTERRUPT 



104005 
104001 



022376 



022376 



000340 
002144 



4010 
0006 



004537 020214 



157744 
157732 



2$: 



10000$: 

EMDTST 
L10030: 



-SBTTL 
BGHTST 



JSR 

CKERFG 
EMT 
.HORO 

BGIiSEG 
EMT 



CLR 
CLR 
MOV 
MOV 

SETPRI 

MOV 

EMT 

JSR 

HRITE! 

JSR 

ESCAPE 

EMT 

«HORD 

SETPRI 

MOV 

EMT 

TST 

BME 

ERRDF 

TRAP 

«HORD 

.HORD 

.WORD 

ESCAPE 

EMT 

.HORD 

JSR 

ENDSEG 
EMT 



PC^HDHOME 



CSEXIT 
L10030-- 



C$BSEG 



IMTFLG 
"RLDA 



-128-^@RLMP 
-"-,§RLB 



BUF, 



LBA 



PRIOO 
PRIOO^RO 

rI/LDFUNC 
INTEH 

R5,HTCRDY 
SEG 

CSESCAPE 
10000$-, 

PRIQ7 
PRI07,R0 



#PRIQ7 

Iprio? 

C$SPRI 



:SSPRI 
INTFLG 

4-£EM17,ERR0 
TiERCODE 

P12 

ERRO 

SEG 

CSESCAPE 

10000$-» 



RS^CHERR 



EMT 
**TEST 



C$ESEG 

C$ETST 
4** - PROPER I 



;HEADS OVER TRACK 
;HEADS 60 HOME OKAY 



;%%START OF SEGMEHT%% 



;CLEAR IMTERRUPT OCCURAHCE FLAG 

ISET UP HORD COUST 
;SET UP BUS ADDRESS 

;PRIORITY TO 

/LOAD THE FDNCTIOM IK MEXT HORD 
;HRITE USDSR IHTERRUPT 
;HAIT for IHTERRUPT 
;CHECK FOR FL:LOE^ ELSE EXIT SEG 



;SET PRIORITY TO 7 

;DID IHTERRUPT OCCUR? 
JYES-BRANCH HO-REPORT 

;HRITE did MOT INTERRUPT 

ICHECK FOR FL:L0E, ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;%%E!IO OF SEGMEHT%% 

;**END of TEST** 

NCREMEMT OF RLBA ON WRITE 

>**START OF TEST** 



STARS 

. » ftftftftft*ftftftSftftft*ftftftftftft»ftftftftftftft*ftftftft*ftftftftftftftftftftftftft*ftft*ft*ft* 

;CHECK THAT THE RLBA MILL INCREMENT PROPERLY AFTER THE 



rftftftftftftft 



ROUTINES 
?11 22-M0¥-78 



MACYli 
15S28 



021356 



301(1052) 




104005 
104001 



22-iO?-78 
^TEST 4** - 



15S35 
PROPER 



PAGE 1-30 

IMCREMER? or RLBI 01 URIfE 



SEQ 0060 



iHRire MIS FINISHED fBE RLB& SHOOLD BE 128 MQRpS (256 BfTES) 



3$S 



JSR 

CKBRFG 
EH? 
«»aRO 

BGMSEG 
EHT 



CLR 
M0¥ 
MO? 
HQV 
ADD 

jm 

SRItE 

JSR 

ESC&PE 

ioRD 

JSR 

ESCAPE 

BHf 

.UORD 

MOV 

CHP 

BSQ 

ERROF 



.WORD 
.MQRD 
»M0RD 



2$: 

10000$: 

EMDTST 
L10031: 



022532 



«SBTfL 
BGHTSf 



EiDSEG 

EMT 

EMf 
**TEST 



PC>HDHOME 

mm-. 



CSBSEG 



RLDA 



RS^LDFORC 
R5#H?CRDy 

RS.CHERR 






m' Milk 

-WORD 5 _ 



M20£ERR4 



EM20 
ERR 4 



C$ESEG 



EiBi molV^h^ 



;%%S?AR? OF SEGMENftt 



;SEf UP BUS ADDRESS 

^RD coyiif 

RM EXPECfED BUS ADDRESS 



lliQRD COUNr 



;chIc! 



ILOAD fHE FOICTIOi li NEIT HORD 

FOR CgifROLLER READY 
K FOR fltlQEf ELSE EII? SEG 



ICHECK CiTLR FOR ERRORS 
;CHSCK FOR FLSLOE, ELSE EIIT SEG 

IfIS, COifliUS 

;BA did not IWCREMEiT 



;%%EiiD OF SEGHEiTtt 
;**EiD OF TEST** 



CSETST 
5** - PROPER IMCREMEHT OF RLDA OM WRITE 

;**STARf OF TEST** 



r ROUTIHES 

m 22-HOY-78 



022532 



HACYll 30A(1052) 
15:28 * 



022532 



22-M0V-78 
*TEST 5** - 



15:35 PACE 1-31 

PROPER IMCREMEMT OF RLDA OM MRITE 



SEQ 0061 



ft'ft«ft«*ft««r«r«rft«rft«ftftft*ilir*«r«rft*«'ar««««ftft««ft«rfti£r**«ft«i»«fl!llr«fti»««ft«t««ft«« 



Sf|RJ 

ICHECK THAT THE SECTOR INCREMENTS AFTER THE MRITE MAS FIIiISHED« 
;»E RANDOMLY PICK A SECTOR (OtHER THAN LAST TRACK) AND ISSUE 
;A FULL SECTOR MRITE THE RLDA SHOOLD REFLECT AN INCREMENT 
'.nw THK SKrnTH. »»cnnif« mis the expected HLn&_ 



;0F THE SECOTR- 
STARS 

• I ****** ir**-le**1tifatit * 



r«««ft««rft«r«^tc«iSt««3»«««««:ftftft««t«A»««ftd39rA««««r«;ftft««ft« 



280 



02255 
02255 



022604 



022660 



022662 
022662 



004737 021356 



104032 
000114 



104004 

005037 
013777 
005237 

mm 
mm 

004537 

mm 

004537 

mm 

013737 
001404 

mm 



2656 01 



n\in 



104005 
104001 



002166 
002166 
002166 

020456 
021276 



020214 



02232 
02166 



157462 

mm 



002170 
002170 



3S: 



2$: 
10000$: 



ENDTST 
L10032: 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 
EMT 



CLR 
MOV 
INC 
MOV 
MOV 

JSR 

MRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 
ESCAPE 
EHT 
.UORD 

MOV 
CMP 

BEQ 

ERRDF 

TRAP 

.WORD 

»WORD 

.WORD 



EHDSEG 
EMT 

EMT 



PCrHDHOME 

CSEXIT 
L10032-. 



C$BSEG 



GDDAT 

GDDAT,gRLDA 
GDDAT 

■ '" aRLMP 
DBA 



;HEADS OVER TRACK 
7HEADS GO HOME OKAY 



R5,LDFUMC 

R5^WTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5£CHERR 
SEG 

E.DAfBODAT 
GDDAT, BDDAT 
2$ 

6-#EM21|-ERR4 

tsercodI 

EM21 
ERR4 

CSESEG 
C$ETST 



;%%START OF SEGMENT%% 



>setup disk address 
;create expected sector 
;wqrd count 
;setup bus address 

;load the function in next word 
;hrite 

;ha!t for controller ready 
icheck for flsloe, else exit seg 



JCHECK CNTLR for ERRORS 
;CHECK FOR FLSLOE, ELSE EXIT SEG 



;READ disk ADDRESS 

;did sector increment properly 
;yes, branch no, report error 

;DA did NOT INCREMENT 



;%%END of SEGHEHTIt 
;**END OF TEST** 



ASSEMBLY ROOflHES 
CZRt.BB«Pll 22-MOV-78 



022664 
022664 



MICYll 
15:28 



301(1052) 



004737 

mm 




021356 



IliS ilil 



104005 



020456 
021276 



002226 
001777 
112000 



002160 
002160 
0()2160 



112000 002160 



22-iOV-78 
ifEST 6®* - 



15S35 PIGE 1-32 

FORCE HEADER MOf FOOiD HITH URIfE 



SEQ 0063 



-SBTTL 
BGMTST 



**fESf 6** 



FORCE HEIDER iOT fOOMD MIfH MRITE 

|«*Sf&RT OF TEST** 



STARS 

.. ****** ************* AA* *«***«*« ««««**«*« A**a«ft ft ftft Aft Aft ft*«f ft »««»** ft 

;F0RCE header not FOUMD ERROR fO OCCOR. THIS IS DORS 



>MRITE." SECT6r"40 does' MOT"EIl§f QM THE RLof PICK 



^RX^ii'^^IMi-ISCTOR 40„OF,THE^RLDA 



»|HEREF0RE HDR NT FOUHD SHOULD SSf« 



STARS 

• . ftftftftftftft-^ft ft 1»*«!ft ft* ft* ft ftftftftftft ft ftftftftft ft ft* ft* ********** ft ************** ft* 



l$l 



2$z 



10000$: 

EMDTST 



JSR 

CKERFG 
EMT 
»MORD 

BGMSEG 
EMT 



NOV 
MOV 
HOV 

JSR 

MRITE 

JSR 

ESCAPE 

EMT 

»WORD 

MOV 
BIC 
CMP 



JSR 
CKLOOP 

EMT 

CMP 

BEQ 

ERRDF 

TRAP 

.lifORD 

.MORD 

.WORD 



EMDSEG 
EMT 



PCHDHOME 
Lfo033-« 



CSBSEG 



EADS 

Iads 



OVER TRACK 
60 HOME OKAY 



;%%STARf OF SEGMEiTtt 



|40«^§RLDA 

Ibuf^Irlba 
-i^Srlmp 



^IH§||Rg MOT TO FlgD HEADER B| 
;igffIIIG SECTOR 40 OF C¥L« AD 
jHORD COUMf 



;WRITE 



IIIG §|CtOR 40 OF C¥L« AfiDR. 
-~UMf 

;L0AD THE FOECTIOi IM BEIT HORD 



I40«^§R 
BUF^IR 

RS^LDFUHC 

RS^rWTCRDY 
SEG 

CSESCAPE 
10000$-. 

E.CS#TMPO >yfix kuwsi 
1777£TMP0 |SA¥E ERROR BITS 
BIT15!BIT12iBITi0£TMP0 IHDR HOT FOUMD SET, 
;YES^ COMTIMUE 



StiAIf FOR COMTROLLER READY 
KRECK FOR rL:LOE, ELSE EXIT SEG 



I 



;get rlcs 



RS^CHERR 

CSCLPl 

#BIT15IBIT12iBIT10i-TMP0 

if.^EMlO^ERRO 

IIercode 



cseseg 



^HHEil FORCED 

;%%EMD OF SEGMEMT%% 
;**EMD OF TEST** 



ASSEMBLY ROUTIMES 
CZRLBB.Pll 22-N0V-78 



104001 



MACYll 30A(1052) 
15:28 * 



22-NOV-78 
^TEST 6** - 



15:35 PAGE 1-33 

FORCE HEADER HOT FOUHD HITH MRITE 



SEQ 0063 




4010 
0054 



021356 



W' 



50 



020456 
021276 



000340 
002144 



illi 



L10033: 

.SBTTL 
BGMTST 



EMT CSETST 

**TEST 7** - FORCE HEADER MOf FOUMD WITH WRITE INTERRUPT 

J**START OF TEST** 



STARS 

• . ft* *************** ft ft ******* ft ftftftft ft ************ ft* ftftftft*«««ft« *««««** 

;TEST THAT HEADER HOT FOUMD ERROR HILL GENERATE AN INTERRUPT 

;0M OCCURAMCE. HEADER NOT FOUND WILL BE FORCED BY SETTING 

;SECTOR 40 OF RLDA AND ISSUEING A WRITE 

STARS 

.. ft* ftftftftftftftft* ********************* ft* ****** ftftftftftftft ft* ftft^ftftftft **««««« 



;heads over track 
;heads go home okay 



2$: 



JSR 

CKERFG 

EMT 

• word 


PC/HDHOME 

CSEXIT 
L10034-. 


BGNSEG 

EMT 


C$BSEG 


EMT 
CLR 
MOV 
MOV 
MOV 


fpRIOO^RO 
CSSPRI 
INTFLG 
t40.,iRLDA 


JSR RS^MTCRDY 
CKLOOP 


TST 

BHE 


INTFLG 
2$ 


ERRDF 

• WORD 
.WORD 


EM43 
ERRO 


ESCAPE 
EMT 


SEG 
CSESCAPE 



>%tSTART OF SEGMENTtI 



;CLEAR INTERRUPT OCCURAMCE FLAG 
; INSURE NOT TO FIND HEADER BY 
;SETTING SECTOR 40 OF CYL, ADDR- 
;WORD COUNT 

;LOAD THE FUMCTIOM IN NEXT WORD 
ISRITE 
;WAIT FOR CONTROLLER READY 



;did interrupt occur 
;yes okay 



|H0 interrupt from OPI 



;CHECK for FL:L0E, ELSE EXIT SEG 



1370 



) 



ASSEMBLY ROUflNES 
CZRLBB-Pll 22-liO¥-78 



) 22-N0V-78 
**TESf 7** - 



002254 



mE nm mn 

023256 013746 0022| 
023262 012746 OOOOO 



• WORD 
.HORD 



ENDSEG 
EM? 




15:35 PAGE 1-34 
FORCE HEADER MOT 



E.CS^fMPO 



FOUHD UlfH HRIfE lifERRUPf 
;eET RLCS 



SEQ 0064 



!1777,|MP0 JSIf E ERIIOR B 

iIfi5iBlfl2iBIfi0£fMP0 JIIOR 
$ ;¥fs^ COHflMU 

R5/CHERR 

C$CLP1 

fBItl5iBI?12IBI?10^fMP0 

ll.^EMlO/ERRO 
flERCODE 



[OR Bits 

-R iOT FOOMO SET, 
UE 



C$ESEG 
CSETST 



;»HEIJ FORCED 

;%%EIID or SEGNEHT%% 
;**EIID OF TEST** 



.SBTTL 
BGNTST 



**TEST 8** 



CHECK OPI TIME HITH HDR NT FMD 

;**START OF TEST** 



STARS 

;CHECK QPI TIME IT SHOULD BE AROUHD 200 MILLISECONDS (OM UMIBOS) 
;CHECK THIS BY TIMING OPI OH A FORCED HEADER HOT FQOND 
SISSUE URITE WITH SECTOR 40 SET III THE DISK ADDRESS 
STARS 



JSR 
CKERFG 



BGMSEG 
EMT 

CLRfEC 

MOV 

EMT 

SETVEC 

MOV 

MOV 

MOV 

MOV 



PC/HDHOME 



;heads over track o 

jHEADS GO HOME OKAY 



CSBSEG 

fc 
C.RO 
CVEC 



|»iC 

BVEC##TIMSRV/#340 






;%%START OF SEGMEIiT%% 
;CLEAR PRESENT INTERRUPT VECTOR 

;SET INTR. VEC. WITH ABORT WAIT 



SP) 



ASSEMBLY ROUTINES 
CZRLBB.Pll 22-MOV-78 



MACYll 
15S28 



30A(1052) 22-N0V-78 15:35 PAGE 1-35 

**TEST 8** - CHECK OPI TIME WITH HDR MT FND 




000010 
000000 



050 
020456 



002302 

002170 
002144 

002170 
000012 

002170 

000340 
002302 



002254 



mm 

156720 



002170 
002170 



SEQ 0065 



CSSVEC 



EMT 

ADO 

SETPRI 

MOV 

EMT 

CLR 

MOV 

MOV 

MOV 



JSR R5,LDF0NC 
WRITE! IHTEN 




;CLEAR INTERRUPT FLAG 
;SET UP FOR HDR NT FND 
?BUS ADDRESS 
;WORD COUNT 



;LOAD THE FUNCTION IN NEXT WORD 



002170 1$: 



3S: 



MOV 

ASL 

ASL 

ASL 

ADD 

ADD 

UAITUS 

EMT 

MOV 

TST 

BEQ 

GETTIM 

EMT 

MOV 

CLR 

SUB 

BMI 

INC 

BR 

MOV 



QPIMX^RO 

RO 
RO 
QPIMX,RO 

opimxJro 
ciwTU 

RO^BDOAT 

INTFLG 

4$ 

BDDAT 

CSGTIM 

RO/BDDAT 

RO 

#10., BDDAT 

RO 

RO, BDDAT 



;WAIT MAX MILLISECONDS 

;SETUP FOR WORST CASE 
IDID INTERRUPT OCCUR 
;N0, report ERROR 

;get time expired 



;divide 
;answer 

;BY 10 TO GET 

;right answer 



;CHECK THAT OPI TIME 
2$! 



IS WITHIN LIMITS 



4$: 



5$: 



SETPRI 

MOV 

EMT 

CMP 

BLT 

CMP 
BLE 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

CLRVEC 
MOV 
EMT 
SETVEC 



PRI07 
PRI07,R0 



CSSPRI 
OPI "' 



4S 



MX,B00AT 



;IS IT WITHIN LIMITS 
;N0, REPORT ERROR 



QPIMN, BDDAT ;WITHIN LIMITS 
5S ;YES 

974.£em56,err13 ?qpi timing incorrect 
t|er6ode 

EM56 
ERR13 



BVEC 

BVEC,RO 

CSCVEC 

BVEC,#INTSRV,#340 



;CLEAR PRESENT VECTOR 

ISET IN old vector 



ASSEMBLY ROUfI 
CZRLBB»P11 




MICVll 30A(1052) 22-M0f-78 15:35 PAGE 1-36 

**TESf 8** - CHECIC OPI flHE ilfH HDR M? FMD 



040|0 



020456 
021276 



SEQ 0066 



MOV 
M0¥ 
H0¥ 
H0¥ 
EMf 
ADD 



lMf§iL~|sP) 




lOOOOSS 



EMDTS 
L1003 



EMf 



C$ESEG 



;t%EiD or SEGNEM?%% 
;**EMD or TEST** 



EMf C$ETST 
«SBfTL **TESf 9** - HOLTIPLE SECTOR TRIMSFER OM SRIfE 



BGIITST 



;**SfiRT or TEST** 



STARS 

,.*»***»*«******«**********««■*«* A* ««■»*«««* ftft«aA*ft«ftftftft«*«fft aft ftft^ft A 

;CHECK FOR MULTIPLE SECTOR TRASSfER OM »RITE. THIS TEST CHECKS 
;|HilT TWO SECTORS CAM BE SOCCESSFOLL¥ MRITTEM- «B LOAD 

;A DOOBLE IMCREMEMT EACH TIME- 
STARS 

^ .ft* ****************** A** ife*««* ft *««#-ftft«r* *««*** ft*«* A ftft !»**«*«» *i>li*ft ft A 



ISs 



JSR 

CKERPG 
EMT 
.MORD 

CLR 
CLR 

BGHSEG 
EMT 



M0¥ 
BIS 
M0¥ 
ADD 

M0¥ 
M0¥ 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

,a0RD 



PC/HDHOME 

mill-. 

TMPO 
TMPl 



C$BSEG 



TMPl^GDDAT 
TMPOiGDDAT 

gddat.|rlda 

!2,gddIt 
BUF^gRLBA 
-129-,8RLMP 

RS^LDFUHC 

R5*liTCRD¥ 
SEG 

CSESCAPE 
10000$-, 



;heads 0¥er track 
;heads go hone oka¥ 



jCLEAR TEMP LOCATIOMS 

IttSTART OF SEGMEMTtt 



im 11988" 



>SEf DISK ADDRESS-SECTOR 

7SET EXPECTED * 2 

;SET BUS ADDRESS 

;H0RD COUMT-SECTOR-s-l MORD 

;LOAD THE FUMCTIOM IM MEXT MORD 
;MRITE 

;WAIT FOR COMTROLLER READY? 
;CHECK FOR FLSLOE^ ELSE EXIT SEG 



BLY ROUTINES 
B-Pll 22-H0Y-78 



MACYll 
15:28 



30A(1052) 



22-N0Y-78 
^TEST 9** - 



15:35 PAGE 1-37 

MULTIPLE SECTOR TRAMSFER OH WRITE 



SEQ 0067 



m 



023634 
02|640 
023640 
023642 



023666 
023670 



023672 



|7i0 

m 



023712 



004537 020214 



104010 
000044 

001404 

000007 
011544 
014410 



mm 

001322 



104005 
104001 



iimi 



mm 



002170 
002166 



002160 



2SS 



JSR 
ESCAPE 



R5,CHERR 
SEG 



EMT CSESCAPE 
■— lOO"" 



M0¥ 
CMP 
BEQ 



0000$- 

E.DA^BDDAT 
BDDAT^GDDAT 



ERRDF 7«,EM22*ERR4 

TRAP TSERCODE 

,MORD 7 

,MORD EM22 

.MORD ERR4 



10000$: 

EMDTST 
L10036: 



«SBTTL 
BGNTST 



IHC 

CMP 
BNE 

ENDSEG 

EMT 

EMT 



TMPO 



SCHECK CSTLR FOR ERRORS 
;CHECK FOR FLSLOE, ELSE EXIT SEG 



;REA0 disk ADDRESS 

;IS DISK ADDRESS CORRECT 

;¥ES^ BRAMCH MO/ REPORT ERROR 

;DISK ADDRESS MOT CORRECT 



;mext sector 

;AT EHD? 
;N0/ go BACK 



C$ESEG 



;%%END OF SEGHENT%% 

;**EMD OF TEST** 
C$ETST 
^*YEST 10** - CHECK DIRECTION OF HRITE NPR 

;**START OF TEST** 



STAR^ 
|¥ERIFY 

5kmomh„p 



THAT A HRITE IS WRITING MOT READING. HE SRITE A 
ATTERN IH "BUF" (128 WORDK HE THEN ISSUE A liRITE« 

E WRITE IS FIMISHED HE CHECK THAT "BUF« IS IMTACT, 

HIS IS DOME TO PRO¥E THAT THE NPR IS GOING THE RIGHT 



J 5 ft***** 



rftft ft* ****** ft ************** ft* ftftftftftftftftftft ft* ***««««» ^^«j^ft«««^ 



004737 021356 



Jg403 



0160 



im 



003052 
000200 
125252 



2$: 

3$: 



JSR PC/HDHOME 

CKERFG 

EMT CSEXIT 

.MQRD L10037-. 

BGNSEG 

EMf CSBSEG 



MOV 
M0¥ 
M0¥ 



BUF/R2 

128a, Rl 

125252/(R2)* 



;heads 0¥er track 

;HEADS GO HOME OKAY 



?%%START OF SEGMEMT%% 



;IIRITE BUFFER FOR WRITE OPERATIOM 
;OME SECTOR'S WORTH 
JWRITE BUFFER 



iSSEHBLY ROUfI 
CZRLBB.Pll 




301(1052) 22-liO¥-78 15s35 PIGS 1-38 

**?EST 10** - CHECK DIRECTIOi OF MBIfE UPS 



SEQ 0068 



4S% 



5$: 
6$: 



10001$: 



10000$: 

lim-. 



DSC 
BNE 

CLR 

MOV 

MOV 

JSR 

HRITE 

JSR 

.»ORD 

JSR 

ESCAPE 
EHT 
.HORD 

MOV 
MOV 

BGNSE6 
EMf 

MOV 
MOV 
CMP 
BBQ 

MOV 

ERROr 

TRAP 

.HORD 

.WORD 

.WORD 

ESCAPE 

EMT 

.HORD 

tST 

DEC 

BME 

EMDSEG 

EMT 
EMDSEG 



024110 



oSBTTL 
BGNTST 



EMT 
**TEST 



!RLDA 
-128, iri 



RLMP 
OS?* 



RS^ifCRDV 

C|ESCAPE 
10000$-, 

RS^CHERR 
SEG 

C$BSEG 

mm 

5$ 



;RRe 



SEG 

c|bscape 

0001$-. 
R2)* 



,0g>|E7 



GO BACK 

address 



818 gSgSt" 

OS ADDRESS 



;iia 

if 

" "gg«I| to FIMISH 

FOR PLSLOE, ELSE EXIT SEG 

ICHECK CMTLR FOR ERRORS 
>CHgCK FOR FLSLOE/ ELSE EXIT SEG 



,-Rr _ 

liAIt Fi 
ICHECK 



DDAf 



;SEf UP TO CHECK BUFFER 
ICHECK 128 MORDS 



lltSTAR? OF SBGHEiftt 



IPSII iWS?I'6..iE 125252 



"""' COS"'" 



;?ES^ COSTIMUE 
HEMORV L0CATI08 OF FAILURE 



ICHECK FOR FLILOE^ ELSE EXIT SEG 



IMEXT! 
IDOME? 
IMO^ GO BACK 



C$ESEG 

CSESEG 

C$ETST 
11** - CHECK FULL RLBI 



ItlEHD OF SEGMEMTtl 
IttEMO OF SEGMEMTtt 
|**EliD OF TEST** 



mCREMEMf 
|**START 



OF TEST** 



ASSEMBLY ROUTINES HACYll 
CZRLBB.Pll 22-M0V-78 15:28 



1567 
1568 



024110 



024110 



30A(1052) 22-MQV-78 
**TEST 11** 



15:35 PAGE 1-39 
• CHECK FULL RLBA INCREMEHT 



SEQ 0069 



STARS 



************ A** tat*«*A*ft***ft***4&«ar«*«rft*:^Aftft*ft&«ft^A* A A^ft^^^^^ftj^ 



ITEST THAT THE RLBA HILL INCREMEHTf HE DO MOT DO A FULL 16 
IBIT INCREMENT WE CHECK THAT EACH BIT WILL TOGGLE TO 1 



lAND 1 TO 0,^ W? DO 9fi|CK ALL BITS EVEN IF ALL MEMORY 

fM MPI:^5Px,«l*l IPORE HOH-EXISTAHT MEMORY ERRORS). 
Ill USE THE SAME DISK ADDRESS (RAHDOM) AMD A 1 WORD TRANSFER. 



IWE USE THE SAME DISK 

STARS 

• . ********************** ft*** A********** A** A**ftaft«*«ftft^*ftftft*^^^^^^ 



024110 
024114 
""4122 



024 
02- 



004737 021356 



4124 00 



104032 
"-0134 



JSR 

CKERFG 
EMT 
.WORD 



PC^HDHOME 

CSEXIT 
L10040-. 



IHEADS OVER TRACK 
IHEADS GO HOME OKAY 



m\ 



mi 



024126 005037 002162 
104004 



024132 
024132 



024134 
024134 
024142 
024146 

024154 

mm 

024166 

024172 
024200 
024206 

054214 

024222 001404 

024224 



024224 
024226 



4240 
4244 
4246 
4254 



mm 

013777 

imii 

01373? 
023737 



156100 
002162 

020456 

021276 



mm 

002230 
002166 



104462 
000011 
012165 
014410 

104010 
000020 

006337 002162 
103404 



156106 
156070 



002162 



3$: 



002166 4$: 
002166 
002170 
002170 



5$: 



CLR 



BGNSEG 
EMT 



MOV 
CLR 
MOV 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
ADD 
MOV 
CMP 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

ESCAPE 

EMT 

.WORD 

ASL 
BCS 
BIS 
BR 



C$BSEG 



fMPl/gRLBA 

R5,LDFUNC 

R5^WTCRDY 
SEG 

TMP1,GDDAT 
#2^GDDAT 
E.BAfBDDAT 
GDDAT/BDDAT 

9.,EM30^ERR4 

T$ERCODE 

9 

EM30 

ERR4 

SEG 

CSESCAPE 

10000S-. 

TMPl 

|ilTl,TMPl 



024256 



6$: 



ICLEAR LOCATION 

;%%START OF SEGMENT%% 



lONLY ONE (1) WORD 
ILOAD DISK ADDRESS 
IBUS ADDRESS 

ILOAD THE FUNCTION IN NEXT WORD 

IWAIT FOR WRITE TO FIMISH 
iCHECK FOR FL:L0E^ ELSE EXIT SEG 



ISET UP EXPECTED RLBA 

IPREVIOUS RLBA42 

IREAD RLBA 

IWAS IT UPDATED PROPERLY? 

lYES, CONTINUE 

|BA INCREMENT ERROR 



ICHECK FOR FL:L0E, ELSE EXIT SEG 



INEXT PATTERN TO TEST RLBA 

IDONE? 

INO^ SET IN BIT 1 

|G0 CHECK NEXT« 

lEND TEST 



ASSEMBLY ROOTIMES M&CYll 
CZRLBB.Pll 22-M0V-78 1SS28 



it 



10 



Ml 024262 
*618 024262 



104005 
104001 



30A(1052) 22-H0V-78 15235 PAGE 1-40 

*^TESf 11** - CHECK FULL RLBI IIICRSMElif 



SEQ 0070 



10000$: 

EMDTSf 
L10040: 



EMDSEG 
EMT 



C$ESEG 



>t%EMD or SEGMEMTtt 
;**EMD OF TEST** 



EMT C$ETSf 
,SBTfL **fEST 12** - BA Bit 16 liCREHEMT 

BGMfST ;**SfliR? or TES?** 

STARS 

• « «ft«iltr»&»»&««*«iSn»««««r«««r ««««*«»««««««««««««««« »ft«tir«««t««ftft«r««j»«j|«ft 

;CHECK THAf^ 



,_,-__. fHAf BA gP Jt6 HILL IMCREMEMf, «E MILL LOAD 

;RLBA WITH 177776 AHD ISSUE A ONE WORD HRITE HE THEM 

?CHECK BA BIT 16 TO SET, BA 17 TO STAY A AMD THE Si 

;to go to zero 

ST-- 



THE 
LBA 



.A*l*Sr*#«r#«r*«d**«*«* *«**!*****«*** «*««&*«*** ft*«»*<iftAft#*****ft*ft« ft* 



M 



24354 



024376 
024400 



004737 
000160 



021356 




032737 
001002 

004537 

mm 

032737 
001004 

104462 



155734 
155726 



021276 



020000 002226 



000020 002226 



2$! 



3$S 



JSR 

CKERFG 

EMT CSEXIT 

-WORD Ll0041-» 

BGNSEG 
EMT 



HOV 

CLR 

HOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

BIT 



JSR 

ESCAPE 
EMT 
.WORD 

BIT 

BNE 

ERRDF 
TRAP 
.WORD 
-WORD 



PCHDHOME 



C$BSEG 



SHEADS OVER TRACK 
)HEADS 60 HOME OKAY 



#177776, 8RLBA 

Imem 

|-1,|RLMP 

il^LDFUMC 

RS^WTCRDY 
SEG 

CSESCAPE 
10000S-. 

Ihxm,Lcs 

R5,CHERR 
SEG 

CSESCAPE 
10000$-. 

#BA16,E,CS 

10.,EM31,ERR0 
TSERCODE 

Im31 



IttSTART OF SEGMEHTtt 



>SET MAX BA TO |NC« BA16 

;WE DON'T HAit TO LOAD ANY EA 

;OliE WORD TRAMSFER 

;LOAD THE FDMCTIOH IN NEXT WORD 

JHAIT FOR WRITE TO FINISH 
ICHECK FOR FLSLOE, EJLSE EXIT SEG 

;NON-EXISTANT MEMORY ERROR? 
>YES/ COHTIMOE 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FLSLOE, ELSE EXIT SEG 



JDID BA16 SET? 
?YES, CONTINUE 



;BA 16 DID MOT INCREMENT 



ASSEMBLY ROOTI 
CZRLBB.Pll 



NES MACYll 
22-HOV-78 15128 



024402 014244 



024406 
024414 

024416 
024416 
024420 
024422 
024424 



024430 



024454 

024454 
024454 



024460 
024460 



024460 



244 



104006 
001404 

mm 

012335 
014410 



104005 
104001 



304(1052) 22-M0V-78 
**TEST 12** 



15:35 PAGE 1-41 
- BA BIT 16 INCREMENT 



SEQ 0071 



032737 000040 
001404 



104462 
000013 
012270 
0142"' 



002226 



°o'om 



002170 



4$: 



«WORD ERRO 



CKLOOP 
EMT 



5$: 



BIT 
BEQ 

ERRDF 

TRAP 

.WORD 

-WORD 

.WORD 

CKLOOP 

EMT 

CLR 
MOV 

BEQ 

ERRDF 

TRAP 

.WORD 

«WORD 

.WORD 



6$S 



10000$: 



ENDTST 
L10041: 



.SBTTL 
BGNTST 



EHDSEG 

EMT 

EMT 

**TEST 



CSCLPl 
|BA17,E.CS 



1 
T 
1_ 
EM32 

ERRO 



-£EM32/ERR0 
ERCODE 



C$CLP1 

GDDAT 
E-BA,BDDAT 

12«£EH33/ERR4 
TSERCODE 

EM33 
ERR4 



C$ESEG 

C$ETST 
13** - BA BIT 



;DID BA17 SET ALSO? 
;N0, GOOD CONTINUE 



;BA 17 GOT CARRIED AWAY 



;CHECK THAT BA15-BA0 

;READ BA 

;IS BA ZERO? 

;BA SHOULD BE ZERO 



17 



;%%END OF SEGMENT%% 
;**END OF TEST** 



INCREMENT 

;**START OF TEST** 



)CHECK THAT BABBIT 17 WILL INCREMENT- WE WILL LOAD THE 
;RLBA WITH 177776 AND BA 16 SET, WE WILLISSOE A ONE WORD 
;WRITE. WE THEN CHECK BA17 TO SET, BA16 TO CLEAR AND 
;BAi5 - BAO TO CLEAR. 



1613 024460 

1684 024464 

(4) 024474 

1686 024476 



004737 021356 



104032 
000162 



PC/HDHOME 



JSR 

CKERFG 

EMT CSEXIT 

.WORD L10042- 

BGNSEG 



JHEADS OVER TRACK 
?HEADS GO HOME OKAY 



;%%START OF SEGMENT%% 



ASSEMBLY ROOTI 
CZRLBB.Pll 



) 



MES 
22-M0f-78 



MAC¥11 
15:28 



024476 104004 




024654 
024654 



30IC1052) 22-BOV-78 
**TESf 13** 



EMT 



15:35 PIGE 1-42 
Bk BI? 17 ItfCREMEM? 



SEQ 0072 



M 
mm 

021276 



155536 
155526 



2S! 



020000 002226 



020214 



000040 002226 



3$: 



000020 002226 



nw 



4$ 5 



5S: 



30 002170 



6S: 



MOV 

M0¥ 

MO? 

CLR 

JSR 

HRITE 

JSR 

ESCAPE 

EMT 

.MORD 

Bit 

BME 

JSR 

ESCAPE 
EMf 
.»ORD 

BIf 
BME 

ERRDF 

TRAP 

.WORD 

.iJQRD 

.HORD 

CKLOOP 
EMf 

BIf 
BEQ 

ERRDF 

TRAP 

• UORO 

otfORD 

.WORD 

CKLOOP 

EMf 

CLR 

MO? 

BEQ 

ERRDF 

TRAP 

.MORD 

.WORD 

.WORD 



C$BSEG 

|177776,|RLBA 

fBAie^XMEM 

i-l£iRLMP 

iRLpI 

&3,L0FUHC 

R5,MTCRD¥ 

SE6 

CSESCAPE 

10000S-. 

PXM^E.CS 

RSfCHERR 
SEG 

CSESCAPE 
10000S-. 

|BA17,E»CS 
13.,EM34,ERR0 

t|ercode 

EM34 
ERRO 

C$CLP1 
iBA16,E.CS 

14.*EM35/ERR0 
f|ERC0DE 

EM35 
ERRO 

CSCLPl 

GDDAT 
E.BA^BDDAT 

15.^EM36,ERR4 
fSERCODE 

EM36 

ERR4 



MAX BA TO IMC. 
BA16 p RLCS 
1RD TH 



BA16 

e» IB KLC5 

HORD fRAMSFER 

ILOAD THE FOHCflOM IH NEXT WORD 



;UAIT FOR WRITE TO FINISH 
;CHECK FOR FLSLOE, ELSE EXIT SEG 



;!iOH-EXISTART MEMOR¥ ERROR? 
;¥ES, COHTIMUE 

JCHECK CMTLR FOR ERRORS 
;CHECK FOR FLILOE, ELSE EXIT SEG 



;OID BA17SET? 
;¥ES, COMTmOE 



;BA 17 DID MOT SET 



;DID BA16 SET ALSO? 
;M0, GOOD COHTIHOE 

;BA 16 DIDIi'T KMOH HHEM TO QUIT, 



ICHECK THAT BA15-BA0 IS CLEAR 

;READ BA 

;IS BA ZERO? 

;BA SHOULD BE ZERO 



;%%END OF SEGMENT%% 



i 



ASSEMBLY ROUTIHES 
CZRLBB.Pll 



HOV-78 



104001 




MACYll 
15:28 



000030 
004537 

04010 
00020 

005737 



30A(1052) 22-N0?-78 15:35 PAGE 1-43 

**TEST 13** - BA BIT 17 IMCREMEMT 



SEQ 0073 



021356 



000340 
021350 
002132 
000003 

000010 

020456 
021276 
002132 



020214 



002142 



155304 
155276 



10000$: 

EHDTST 
L10042: 



.SBTTL 
BGNTST 



EMT 



C$ESEG 



;**EilD OF TEST** 
EMT C$ETST 
**TEST 14** - TEST READ NPR INTEGRITY 

;**START OF TEST** 



• •**§*«* ft«ft«««*«««ft««««««ft*4r*«rft *«*««««««*»««»«««*«*««««* Aft ««r«»« ft ft 

;CHECK THAT NPR MILL HOT INTERFERE WITH THE OPERATION OF THE UHIBUS 
|HE SETUP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS 

• ^ftftft**ftftftftftftftftftftft«ft«ftft*ft««n»^ftftftftftftftftftftftftft«ftl«;«ft«ftftftftftftft««««»««jkft« 



1$: 



JSR 

CKERFG 
EMT 
• WORD 

BGNSEG 
EMT 



SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

MOV 

CLR 

MOV 

JSR 

READ 

JSR 

CLRVEC 

MOV 

EMT 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

• WORD 

TST 



PCHDHOME 

CSEXIT 
L10043-. 



C$BSEG 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



ERRVEC^|fRPHAN,#340 
:TRPfiAN^-(SP) 

jrrvec£-(sp) 

Ibuf^srlba 
|rlda 

#-l^@RLMP 
RS^LDFUNC 

R5,HTCRDY 

ERRVEC 

ERRVEC/RO 

CSCVEC 

SEG 

CSESCAPE 

1Q000S-- 

R5/CHERR 

SEG 

CSESCAPE 

10000$-, 

TRPFLG 



;t%START OF SEGMENT%% 



;SET OP VECTOR 



;CLEAR TRAP PLAY 
;LOAD BA 

;load da 

;LOAD WC 

;L0AD the FUNCTION 



IN NEXT WORD 



;CLEAR OUT VECTOR 



?CHECK FOR FL:L0E, ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:L0E/ else exit SEG 



;DID TRAP OCCUR? 



ASSEMBLY ROOflNES 
CZRLBB.Pll 22-H0V-78 



001404 



Mi 

25024 



J83« 



104005 



UkCXll 
15S28 



30ii(1052) 



7$! 



21' MOV-78 
!^EQ 

-HOR' 
»IIORb 



15135 PAGE 1-44 
■ TEST READ MPR IMTEGRI?¥ 



10000$! 



EMDSEG 



SEQ 0074 



EM52 
ERRO 



M52^ERR0 
ODE 



CSESEG 



;mo. okay 

>¥ES/ PRIMT ERROR 



;%%£iD or SE€NEIIT%% 



^ 



25026 

25026 104001 



025030 
025030 



ENDTST 
L10043: 



-SBtTL 
BGMTST 



EMT CSETST 

**TEST 15** - READ FOHCTIOH 



;*«EMD or TEST** 



;**SfART or TEST** 

Sf|R§ 

- - ME MILL riRST DO A READ 

r}"JOLt S|CtOR-REA6."wIlf ?OR*iAD?°AiD CHECK FOR 

#Ani CiKKuKS 

STARS 

. . ***ftft*ftftft**«ftft**ft*»ftftftftft**ft»***ft*ft«rftft«ftftft<,*ftft*ftftftftftftftft^* 



IJhECK OF THE READ fOiiCTIOM. 
;HEADEp TQ^FlND^Ogi SHERE 5e .. 



ft««»«d« 



»«««««« 



025030 
025034 
025042 
025044 



025070 



004737 

104032 
000064 

104004 



021356 



p 

012777 

.793 0|SP4 004537 
1794 OjsllO 

jlj mm mm 

i796 025114 004537 



001750 

im 

03052 
020456 
021276 



020214 
002160 



002160 



155160 
155146 



IS! 



JSR 

CKERFG 
EMT 
«,MORD 

BGNSEG 
EMT 

MOV 

&ls$ 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

-WORD 

JSR 

DEC 
BME 



PCHDHOME 

CSSXIT 
L10044-« 

CSBSEG 

lOOOo^TMPO 
RLDA 

-128,,ftRLMP 
BUr,gRLBA 

R5,LDFU!iC 

R5*WTCRDY 
SEG 

CSESCAPE 
10000$-- 

R5,CHERR 



TM?6 
1$ 



;heads over track o 
;heads 60 home okay 



;%%START OF SEGMEiTtt 



;LOAD DISK ADDRESS 
}SET WORD LENGTH 
;SET BUS ADDRESS 

„^,^ ;LO&D THE rUMCTIOI III SEXT WORD 
;READ 

;HAIT for COiTROLLER READY 
ICHECK FOR FLSLOE/ ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 



") 



ASSEMBLY ROUTINES HACYll 
CZRLBB-Pll 22-NOV-78 15528 

1800 025126 
(I) 925126 
(3} 025126 104005 

mi mm 

(3) 025130 

(3) 025130 104001 



025132 



30A(1052) 22-NOV-78 15l35 PAGE 1-45 
**TEST 15** - READ FUICTIOM 



10000$: 



ENDTST 
L10044: 



EMDSEG 
EMT 



C$ESEG 



CSETST 



SEQ 0075 



;%%Elib CF SEGMEMT%% 
;**END OF TEST** 



**TEST 16** 



-SBTTL 
BGNTST 

HECK 

SSUE 

.. FULl 

ERRORS OH IMTERRUP 



READ FUNCTION INTERRUPT 

;**START OF TEST** 



«««««« ft fir*««r«r«ft ft ft«ft ft* 4r«ft«*«r ft «iJlt««ftftft*«rftft «*«****«««***«*« Aft ft *« 



IcHECK OF THE READ^FUNCTION UNDER INTERRUPT CONTROL^ WE WILL 
;ISSUE A READ HEADER TO GET POSITION AMD THEN READ 
HaUhk SFISS^S^nPC FOR THE INTERRUPT. CHECK FOR 
SERRORS ON INTERRUPT. 

.^*****ftftftftftft«ftftftftftftft*«ftft«ftft4ftftfta.«:atft**ftftft*«*.a,**^*<^j^ft^^^^4<^«^^^^^j^ 



004737 021356 



25146 000106 



m m 



150 
150 



025152 
025156 
025162 
025170 



28 02 



25224 



104032 



104004 
005037 

012777 



104006 

012700 
104041 

005737 
001004 



02S234 104462 

025236 000023 

025240 010607 

025242 014244 
025244 

025244 104006 



002144 
003052 



000000 
020456 
021276 

000340 
002144 



155060 
155046 



JSR 

CKERFG 
EMT 
-WORD 

BGNSEG 
EMT 

CLR 
CLR 
MOV 
MOV 

SETPRI 

MOV 

EMT 

JSR 

READIINTEN 

JSR 

CKLOOP 

EMT 

SETPRI 

MOV 

EMT 



PC/HDHOME 



CSEXIT 
L10045-, 



COBSEG 
INTFLG 



gRLDA 
1-128, |. 

Ibuf,§r 



IRLMP 



1$: 



TST 
RNE 

ERRDF 

TRAP 

.WORD 

.MORD 

.MORD 

CKLOOP 

EMT 



PRIOO 
PRI00#R0 
'SPRI 
^LDFUNC 



R5,HTCRDY 

CSCLPl 
PR 1 07 
PRI07,R0 
SSPRI 



IHTFLG 
IS 

TSE^ODf 

EM4 
ERRO 

CSCLPl 



ERRO 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



?%%START OF SEGMENT!! 

;CLEAR INTERRUPT INDICATOR 
;SET DISK ADDRESS 
;SET UP WORD COUNT 
;SET UP BUS ADDRESS 

^PRIORITY TO 

,RE»D a^ikg^SNlglRSpT"'"' '" "^^ ""^^ 

;WAIT FOR INTERRUPT 
;PRIORITY TO 7 



?did interrupt occur? 
;yes-branch no-report 



;READ DID NOT INTERRUPT 



;CHECK FOR LOOP 



) 



ASSEMBLY ROUTIMES 
CZRLBB.Pll 22-M0V-78 



M&CVll 30li(1052) 22-IIOV-78 15s35 PAGE 1-46 

15S28 **?EST 16** - READ FOMCTIOii IMTERRUPT 



SEQ 0076 




004537 020214 



104005 



021356 



104010 
000054 



345$ 

fir 



mm 

002160 



154712 



471 
760 



0030 

020456 

021276 



10000$s 



mm mi 

003052 0021 



JSR RS^CHERR 
EHDSEG 



EMf 



CSESEG 



;CttECK CPTLB FOR ERRORS 
>%%SHD or SEGMSHTtt 

}^*Em or tEST** 



EMf CSEfST 
•SBffL **TEST 17** - CHECK READ MPR DIRECflOM 
BGMfST |**SfARf OF TEST** 

?lili*********«********a***ft«*****«****************************** 

MEMORY) 



IS 

AFTER 



002160 







5 MO 

?Tiil*ft»*A»** A************** A******************* ******** ********* 



IS! 

2SS 



JSR 

CKERFG 
EMT 
.IIORD 

B6MSEG 
EMT 

NOV 
CLR 
MOV 
MOV 
MOV 
DEC 
BME 
CLR 
MOV 
MOV 
MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 



PCHDHOME 

CSBXIT 
L10046-. 



C$BSEG 
TMPO^tRO)* 

"I 

-^LDA 



TMPO 



;heads over track 

;HEADS GO HOME OKAY 



;%%START OF SEGMEMTtt 

;SET PATTERM TO BRITE 
ICLEAR PASS INDICATOR 
fSET UP BOFFER BEGIMMIMG 



BO] 



128.fiRLMP 

BUrJeDDAT 

R5^LDF0IIC 

R5#iiTCRDY 
SEG 

CSESCAPE 
10000$-« 



;HRITE BOFFER 

7 DONE?? 

'— GO BACK 

-"SK ADDRESS 

_. D COOMT 

QAD BUS ADDRESS 
OR ERROR PRINT 



hOt GO BA 
SlQAD DISK 
>SET UORD 



i^ 



;READ 



;L0AD THE FUNCTION IM NEXT HORD 



siiAIT FOR CONTROLLER READY 
JchIcK FOR FL:L0E, else EXIT SEG 



ASSEMBLY ROUTINES 
CZRLBB.Pll 22-N0V-78 



MACYll 
15!28 



30A(1052) 



22-M0V-78 15:35 PAGE 1-47 
*TEST 17** - CHECK READ MPR DIRECTIOH 



SEQ 0077 



025374 
025400 
025400 
025402 

025404 
025410 
025414 



004537 020214 



SS i 



uim 



5424 
5430 
5434 



025436 
025436 
025440 
025442 
025444 

025446 

025446 
025446 
025446 
025450 
025450 
025450 



025452 
025452 



025452 



04010 
00044 



012702 

mi 



005737 
001005 



0052: 



0051;,. 

000755 



104462 
000024 
010646 
014636 



104005 
104001 



003052 
002160 



002162 



2 002 
7 002 



002162 
002160 



4$: 



5$: 



6$: 



JSR 

ESCAPE 
EMT 
.WORD 

MOV 
CMP 



TST 
BNE 

INC 

COM 
BR 

ERRDF 

TRAP 

.WORD 

.WORD 

,WORD 



10000$; 



ENDTST 
L10046: 



-SBTTL 
BGNTST 



R5#CHERR 
SEG 

BUF,R2 
R2)*/TMP0 



TMPl 
TMPO 
1$ 

20»#EM5,ERR9 
TSERCODE 

EM5 
ERR9 



ENDSEG 

EMT 



C$ESEG 



EHT CSETST 
**TEST 18** - PROPER 



ICHECK CNTLR FOR ERRORS 
;CHECK FOR FLsLOE, ELSE EXIT SEG 



SSET TO START COMPARING DATA 
;DID data CHANGE? 
;YES# CHECK FOR END 
} 

;DATA DIDN'T CHANGE£ CHECK 
;IF 1ST OR 2ND TIME? 
>2ND-REP0RT IST-TRY AGAIN 

;INC PASS COUNT 
JCOMPLIMENT PATTERN 
;G0 DO IT AGIIH 

;READ DID NOT MODIFY MEMORY 



;%%END OF SEGMENT%% 
;**EHD OF TEST** 

INCREMENT OF RLBA ON READ 

;**START OF TEST** 



;6hECK THAT THE RLBA HILL INCREMENT WITH THE READ ^^^^„„ 
;THE RLBA SHOULD CONTAIN "BUF +256-" AFTER h FULL SECTOR 

Sread. 

STARS 



************************************************** 



025452 
025456 
025464 
025466 

025470 
025470 

025472 
025476 



004737 021356 



mm 



104004 



nm him^ 



154540 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 
EMT 

CLR 
MOV 



PC/HDHOME 
LlOoi?-. 



CSBSEG 

ARLDA 
#BUF/§RLBA 



;heads over track o 
jheads go home okay 



ill 



;%%START OF SEGMENT%% 



UP DISK ADDRESS 
UP BUS ADDRESS 



ASSEMBLY ROUTIMES 
CZRLBB-Pll 22-liO¥-78 



1923 025§04 

m 8 



ml 



04 012777 

III mil 

oiM mm 

025544 004537 

025550 104010 

025552 000030 

mm Im 

025570 001404 

mi mm 

025576 010712 

025600 014410 

025602 



Pi mm 

1949 

ii 
!i 

IIS 

M 
Hi 

1961 



025606 
025606 



025606 



mtii 



104005 
104001 




MACYll 
15:28 

77600 

mu 

020456 
021276 



020214 



mm 



3011(1052) 22-HOV-78 15135 
**fEST 18** - 



PIGE 1-48 



54536 
""66 
66 



mp 



mr-' 



66 



NOV 
MOV 
ADD 

asR 

READ 

JSR 

ESCAPE 

EMT 

«li0R0 

JSR 

ESCAPE 

EMT 

.WORD 

MO? 

CMP 

BEQ 

ERRDF 

TRAP 

«»ORD 

.WORD 

.MORD 



PROPER ISCREMEMT Of RLBA OM READ 

||0R0 COUNT 

ifORM EXPECTED BOS ADDRESS 

;ArTER READ 

;LOAD THE rUiCTIOi IM MEXT HORD 
IREAD 

llfAZi FOR COMTROLLER READY 
;CHECK FOR FLSLOE, ELSE EXIT SEG 



SEQ 0078 



128,1-iRLMP 



RS^LDFUMC 



R5#SfCHDY 
SEG 

CSESCAPE 
10000$-« 

R5|pCHERR 
SEG 

iDgiliBSlT 

1$ 

21«£EM6,ERR4 
T|ERCQ0E 

iM6 
ERR4 



ICHBCK C»TL| 
ICHECK FOR FLf"" 



SLOE, 



LSfElf?""^ 



SEG 



jglS"- 



lYES 

;ba did 



'RLBA' FOR PRESENT ADDRESS 
BA' INCREMENT PROPERLY? 
CONTINUE 



MOT INCREMENT PROPERLY 



ISt 



10000$: 

ENDTST 
L10047S 



EHDSEG 
EMT 

EMT 
**TEST 



CSESEG 

CSETST 
19** - PROPER 



;%%END OF SEGHEMT%% 
;**EMD OF TEST** 

OF RLDA ON READ 
;**START OF TEST** 



•SBTTL 
BGHTST 
STARS 

• . «««««« ft ««*« ft «r«r«««r ft ft «««««« ft ft ««««««« ««««*««««««« ft «««#««««#«««««» A 

;CHECK THAT THE RLDA INCREMENTS BY ONE AFTER A 
5fULL sector READ, HE FIRST READ A HEADER TO FIND 
;OUt WHERE WE ARE^ THEN ISSUE A READ AFTER 
ITHE READ THE RLDA SHOULD BE RLDA (START) 4- 1 
STARS 

• I ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 



JSR 

CKERFG 
EMT 
.MORD 

BGMSEG 
EMT 



PC/HDHOME 

CSEXIT 
L10050-, 

CSBSEG 



;heads over track o 
;heads go home okay 



;%%START OF SEGMENTtt 



ASSEMBLY ROUTIMES 
CZRLBB.Pll 22-H0V-78 



625672 
025674 

025676 
025702 
025702 
025704 

025722 



025724 
025724 

025732 
025734 



5734 
5734 



lii 

025736 

025740 
025740 



025740 



025740 
-25744 



104010 
000040 



004537 020214 



104010 
000030 

013737 
023737 
001404 

04462 

014410 



104005 
104001 



004737 

mm 



mm 



154406 




30A(1052) 22-H0V-78 
**TEST 19** 



15:35 PAGE 1-49 
• PROPER INCREMENT OF RLDA ON READ 



SEQ 0079 



mv4 



CLR 
MOV 
INC 
MOV 
MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT 
.WORD 

MOV 
CMP 

BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



1$: 



10000$: 



ENDTST 
L10050: 



.SBTTL 
BGNTST 



GDDAT 

GDDAT,@RLDA 

GDDAT 

#-128.|.flRLMP 

#BUF,§RLBA 

R5,LDFUNC 

R5,WTCRDY 
SEG 

CSESCAPE 
10000S-. 

R5,CHERR 
SEG 

CSESCAPE 
10000S-. 

E.DA^BDDAT 
GDDAT, BDDAT 
1$ 

22.^EM7,ERR4 

fSERCODE 

22 

EM7 

ERR4 



;SETUP DISK ADDRESS 
;CREATE EXPECTED SECTOR 
;HaRD COUNT 
;SETUP BUS ADDRESS 

;LOAD THE FUNCTION IN NEXT 
;READ 

;liAIT FOR CONTROLLER READY 
;CHECK FOR FL:L0E, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
?CHECK FOR FL:L0E, ELSE EXIT SEG 



?READ DISK ADDRESS 

;DID SECTOR INCREMENT PROPERLY 

;YES, BRANCH NO, REPORT ERROR 

;DISK ADDRESS DID HOT INCREMENT 



WORD 



ENDSEG 
EMT 

EMT 
**TEST 



CSESEG 

CSETST 
20** - FORCE HEADER 



;%%END OF SEGMENTtt 
;**END OF TEST** 



FOUND WITH READ 
;**START OF TEST** 



STARS 

. . ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

JfoRCE HEADER HOT FOUND ERROR TO OCCUR. THIS IS DONE 
;BY SETTING SECTOR 40 OF THE RLDA AND ISSUING A 

"-■" 40 DOES HOT EXIST ON THE RLOl PACK 

NT FOUND SHOULD SET. 

jftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 



;READ, SECTOR 
JTHEREFORE HDR 
STARS 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 



PCHDHOME 

CSEXIT 
L10051-. 



;heads over track 

;HEADS GO HOME OKAY 



;%%START OF SEGMENTtt 



) 



ASSEMBLY ROUTINES 
CZRLBB.Pll 22-HO¥-78 



025756 104004 
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15S28 **?EST 20** - FORCE HEADER NOT FOUHD WITH READ 



SEQ 0080 



2004 
2005 



2008 
2009 



012777 

004537 
000014 
004537 

104010 
000036 



016046 

mm 



001404 
00027 

owrd 



000050 

020456 
021276 



154246 



013737 002226 002160 

mi mWo mm 



CSBSEG 



MOV 
MOf 
MOV 

JSR 
READ 
JSR 
ESCAPE 

EMT 
,UORD 

MOV 
BIC 
CMP 
BEQ 

ERRDF 
TRAP 
.WORD 
• WORD 
.HORD 



m 



iRLDA 
cgRLBA 

Irlmp 



RS/LDFOHC 

R5*HfCRDY 
SEG 

cSescape 

10000$-. 
E.CS-THPO 



HMSORE NOT TO FIND HEADER BY 
;SETTING_S|CT0R 40 OF CYL, ADDR. 



ORE 

TING __. 

lUORD COUNT 

7L0AD THE FUNCTION IN NEXT MORD 



m 



. FOR CONTROLLER READY 

CK FOR FLSLOE, ELSE EXIT SEG 



>GET RLCS 

isave error bits 
12ibitl5#tmp0 jhdr hot found set. 
;ybs, continue 



ilficODE 



,ERR0 IHEADER NOT FOUND ItOULD NOT SET 



EMIO 
ERRO 



1$S 



26054 
26054 



026056 
026056 



026060 



1030 

2031 026060 



104005 



104001 



10000$! 



ENDTST 
LlOOSl: 



-SBTTL 
B6NTST 



EMDSEG 

EMT C$ESEG 



;%%ENO OF SEGMENT%% 
>**END OF TEST** 



EMT C$ETST 

**TEST 21** ~ FORCE HEADER NOT FOUND WITH READ INTERRUPT 

;**START OF TEST** 



{IeST that header not found ERROR SILL GENERATE AN INTERRUPT 
;0N OCCURANCE. HEADER NOT FOUND WILL BE FORCED BY SETTING 
isECTOR 40 OF RLDA AND ISSUING A READ 
STARS 

J. ****** ************************ ft ft ********«*«*«******« *«**«*«*««* 






004737 021356 



104032 
000142 



104004 



JSR PCHDHOME 

CKERFG 

EMT CSEXIT 

.WORD L10052-. 



BGNSEG 
EMT 



C$BSEG 



;heads over track 
;heads go home okay 



>%%START OF SEGMENTtt 
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SEQ 0081 



2,. 
207_ 

2077 
2078 



012700 
104041 

m 




000000 

020456 
021276 

000340 
002144 



002226 
001777 
112000 



154: 
154 
154 



mm 

002160 



2$: 



026240 



1$: 



10000$! 



ENDTST 
L10052: 



-SBTTL 
BGNTST 



SETPRI 


|pRlOO/RO 
CSSPRI 


MOV 


EMT 


CLR 


MOV 


MOV 


MOV 


JSR 


R5^LDFUMC 


READIINTEN 


JSR 


R5,WTCRDY 


CKLOOP 




EMT 


CSCLPl 

IprioI 

|PRI07,R0 
C$SPRI 


SETPRI 


MOV 


EMT 


TST 


INTFLG 


BNE 


2$ 


ERRDF 


24.£EM43rE 
TSERCODE 

iM43 


TRAP 




. WORD 




.WORD 


ERRO 



ESCAPE SEG 

EMT CSESCAPE 

.WORD 10000S-. 



;CLEAR INTERRUPT OCCURANCE FLAG 
;INSURE NOT TO FIND HEADER BY 
JSETTING SECTOR 40 OF CYL. ADDR- 

;word count 

;load the function in next word 
;read 

;HAIT for CONTROLLER READY 



;DID INTERRUPT OCCUR 
;YES 

;HNF DID NOT INTERRUPT 



;CHECK FOR FL:LOE/ ELSE EXIT SEG 



MOV 
BIC 
CMP 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



ENDSEG 
EMT 



E.CS^TMPO 
#1777£TMP0 



;GET RLCS 

SSAVE ERROR BITS 



#1777#TMP0 ;SAVE ERROR BITS 
|BIT151BIT12!BITi0^TMP0 ;WDR NOT FOUND SET. 
f$ ;YES, CONTINUE 



25.£EM10/ERR0 
TSERCODE 

EHIO 
ERRO 



C$ESEG 



;WHEN FORCED 

;%%END 
;**END OF 



OF 



SEGMENT%% 
TEST** 



EMT C$ETST 

**TEST 22** - CHECK HEADER COMPARE LOGIC 

;**START OF TEST** 
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2079 026240 



026240 



SEQ 0082 



STARS 

)CHECK THE HEADER COMPARE LOGIC WORKS, OP TO THIS POIM? ME 
;KN0W THAT THE LOGIC FUMCTIOMS PROPERLY BUT HOU ME MILL 
^98Fll.ikLJH| B|SS IM THE HEADER WORD, FOUR PATfERMS 
;ARE used a UALKIMG i, GROHIMG t, UALKIMG 0# GROwiliG 0« A SEEK 

;EXPECTIMG a header mot FOOMD to SET 
STARS 



D 



}} 



****** «r**ft»**3&*«r**«*ft*«r««St**ft Aft iaf««t««fgtftft«*A«*na«A**ft*8»**»ft*ft«ftft** 






mtt 



26364 
36366 



26410 
26414 



004737 
104004 



104004 

004537 
000010 
004537 

000500 
004537 



042737 
0127v7 

103404 

053777 

mm 



021356 



000340 
002504 



020456 
021276 



002234 002162 



000177 
000001 



od 

000004 
000100 



mn 

153652 
153636 



l$l 



III 



JSR PCHDHOME 

ckerfg 

emt csexit 

.WORD L10053-. 



bgnseg 
emt 

setpri 

MOV 
EMT 
MOV 

BGHSEG 
EMT 

JSR 
ROHDR 
JSR 
ESCAPE 

EMT 
,IIORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 

BIC 

MOV 

MOV 

BIC 

SUB 

BCS 

BIS 

BR 

HEG 

BIS 

BIT 

BEQ 



C$BSEG 

IPRI07 
iPRI07^R0 
CSSPRI 
#HDRTAB,R3 



CSBSEG 

RS^LDFOHC 

RS^IiTCRDV 
SEG 

CSESCAPE 
10001$-. 

RS,CHERR 
SEG 



CSESCAPE 
10001S-, 
E,MP,TMP1 



|177>1 



#TMP2 
^_ ,TMP2 
fMPl^TMP2 

iSIGM^gRLDA 

TMP2 

TMP2#§RLDA 

|RHHS,(R3) 



;HEADS OVER TRACK 
IHEADS GO HOME OKAY 



IttSTIRT OF SEGMEMTtt 

ipriority to 7 

;get list start 

;%%start of segme»t1% 



«„,« ..ollcSP ^"E FUMCTIOH IN MEXT HORD 
;READ HEADER 

;IIAIT FOR COMTROLLRE READY 
;CHECK FOR FL:L0E^ else EXIT SEG 



ICHECK CNTLR FOR ERRORS 
;CHECK FOR FL:L0E, ELSE EXIT SEG 



;READ AMD SAVE HEADER 

;clear out sector and h.s- 
;setup marker for seek 
;get header pattern 
;clear out sector and h.s, 
^calculate difference to seek 
;branch for seek out 
5seek towards spindle 
?g0 put in difference word 
;we have to negate difference 

;SET IN DIFFERENCE WORD 

;D0 me want HEAD SELECT AS 0? 

;YES/ SKIP OVER SETTING H-S. 
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MACYll 
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000020 
020456 



021276 



020214 



021236 
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15:35 PAGE 1-53 
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SEQ 0083 




153460 

177777 
003052 

020456 

021276 



4S: 



002166 
002170 



5$: 



153452 
153446 
153434 



BIS 
JSR 
SEEK 



JSR 
ESCAPE 

EMT 
.WORD 

JSR 

ESCAPE 
EMT 
• WORD 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

RDHDR 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT 
«MORD 

MOV 
BIC 
MOV 
BIC 
CMP 
BEQ 

ERRDF 

TRAP 

»WORD 

.WORD 

.WORD 

ESCAPE 

EMT 

.WORD 

MOV 
BIC 
MOV 
MOV 

JSR 

READ 

JSR 



#DAHS,gRLDA 
R5^LDF0NC 



RSgWTCRDY 

R5,CHERR 
SEG 

CSESCAPE 
10001$-. 

R5,WTDRDY 

SEG 

CSESCAPE 

10001S-, 

R5,LDFUNC 

RS^rWTCRDY 
SEG 

CSESCAPE 
10001$-. 

R5,CHERR 
SEG 

CSESCAPE 
10001$-, 

E.MPeBDDAT 

SECMSK,BDDAT 

(R3)|rGDDAT 

SECMSK^GDDAT 

GDDAT^BDDAT 

5$ 

27./EMll,ERR4 
TSERCODE 



2 

El__ 
ERR 



IMIJ 



SEG 

CSESCAPE 

10001$-. 

-I/IRLMP 
BUF,@RLBA 

R5,LDFUNC 

RS^WTCRDY 



;set head select to one 

;load the function in next word 

;wait for controller ready 

;CHECK FOR FL:LOE, ELSE EXIT SEG 



JCHECK CNTLR FOR ERRORS 
JCHECK FOR FL:LOE# ELSE EXIT. SEG 



;WAIT FOR DRIVE READY 

;CHECK FOR FL:L0E^ ELSE EXIT SEG 

«r,.« .,,,<feO*D THE FUNCTION IN NEXT WORD 
?READ HEADER (VERIFY SEEK) 
;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:L0E/ ELSE EXIT SEG 



JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;READ HEADER 

;SAVE CYLINDER FOR COMPARE 

;GET EXPECTED HEADER 

;SAVE CYLINDER FOR COMPARE 

;SEEK END UP OKAY 

>YES^ CONTINUE 

;SEEK INCORRECT 



;CHECK FOR FL:L0E, ELSE EXIT SEG 



;SET UP DISK ADDRESS 

;hord count 
;bus address 

;L0AD THE function in NEXT WORD 
?READ 
;WAIT for CONTROLLER READY 
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SEQ 0084 



270.- 

im 

027012 



0203_ 



104005 



002660 
026274 



153374 
1533" 



62 



002160 



002160 



002170 



8$: 



6$: 



fS^APE 
.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
COM 
MOV 
MO? 

JSR 

READ 

JSR 

ESCAPE 

EMt 

.UORD 

MOV 

BIC 

CMP 

BEQ 

JSR 

CKLOOP 

EMT 

CMP 

BEQ 

MOV 
MOV 
COM 

ERRDF 
TRAP 
• WORD 
.WORD 
.WORD 

ESCAPE 

EMT 

.WORD 

TST 
CMP 
BEQ . 
JMP 



7$! 
10001$: 



ENDSEG 

EMT 

ENDSEG 



SCAPE 
01$-. 



R5#CHERR 
SEC 

CSESCAPE 
10001$-, 

|-l|rgRLMP 

iBOP^gRLBA 

RS/LDFUMC 

R5^ifTCRDY 
SE6 

CffiSCAPE 
10001S-. 



;CHECK rOR FLSLOE^ ELSE EXIT SEG 



ICHECK CSTLR FOR ERRORS 
;CHECK FOR FL!LOE# ELSE EXIT SEG 



;SET OP DISK ADDRESS AS 
ICONPLIMENT TO CAUSE HDR HT FND 
;liQRD COORT 
;BUS ADDRESS 



ILOAD THE FUMCTION IN NEXT MORD 
;READ 

;IJAIT FOR CONTROLLER READY 
;CHECK FOR FLSLOE, ELSE EXIT SEG 



;6ET CS 

;SAVE ERROR BITS 



jITl5fBIT12!BITl0|iMP0 |DID HEADER HOT FOUND SET 
R5#CHERR ' ' 
C$CLP1 



IJBIT15IBIT12IBIT10/TMP0 

(R3)£GDDAT 
GDDAT^BDDAT 



;SET UP DATA 
;PRINT OUT 



FOR ERROR 



28.#EM12,ERR4 
TSERCODE 

SEG 

CSESCAPE 

10001$-, 

R3,»HDREND 



C$ESEG 



;HDR NOT FOUND WOULD NOT SET 



;CHECK FOR FLSLOE, ELSE EXIT SEG 



;GET NEXT PATTERN 

;at end? 

;yes, exit test 

;no, go back 



;%%end of segmemt%% 



;%%end of segment%% 
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527012 



027016 
027016 



027016 



104005 



104001 



22-NOV-78 
**TEST 22** 
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10000$: ^^^ 

EMT 


C$ESEG 

;**END of TEST** 

CSETST 


.SBTTL **TEST 23** - CHECK MOLTIPE SECTORS ON READ 


BGNTST 


;**START OF TEST** 



STARS 

;verif¥ that multiple sectors can be read, we will check 
;that the rlda increments properly. 

^ .*«ft**ft«ftftft«:ftftft*ftft«*ftftftftft*ft«ftftftftftftftftftft«ftftft«««ftftfti«r«ft««««««*««««ft« 



^7030 
7032 



027030 
02 



004737 021356 



104032 
000156 



JSR 

CKERFG 

EMT CSEXIT 
LlC""" 



PC,HDH0ME 



.word L10054- 



;HEADS over TRACK 

;heads go home okay 



027034 
027040 

O2784J 



88181? mm 



104004 




020214 



002232 
-"170 



002 
002 



15i 
15- 



166 

II 

140 
136 



002170 
002166 



1$: 



CLR 
CLR 



B6NSEG 
EMT 



MOV 
BIS 
MOV 
ADD 
MOV 
MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

• WORD 

JSR 

ESCAPE 
EMT 
.WORD 

MOV 
CMP 
BEQ 

ERRDF 
TRAP 



THPO 
TMPl 



C$BSEG 



TMP1,GDDAT 
TMPOiCDDAT 

§ddat.|rloa 
b6f^@rlba 

129.,gRLMP 

R5,L0FUNC 

R5,WTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5,CHERR 
SEG 

CSESCAPE 
10000$-. 



E.DA,BDDAT 
BDDAT,GDDAT 

29..EM14,ERR4 
T$ERCODE 



;CLEAR LOCATIONS 

;%%START OF SEGMENT%% 



;GET CYLINDER 

;GET SECTOR 

;SET DISK ADDRESS-SECTOR 

5SET EXPECTED * 2 

>SET BUS ADDRESS 

;WORD C0UHT-SECT0R*1 WORD 

;LOAD THE FUNCTION IN NEXT WORD 
;REAO 

;WAIT FOR CONTROLLER READY? 
;CHECK FOR FLsLOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FLSLOE, ELSE EXIT SEG 



;READ DISK ADDRESS 

;IS DISK ADDRESS CORRECT 

;YES, BRANCH NO, REPORT ERROR 

;DA DID NOT INCREMENT 



&SSEHBL¥ ROUflHES 
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.66 
17170 



027172 

Ww 

027210 

mm 



027212 



78 
00003S 

104010 
000016 

095237 



MACYll 
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%m 
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002160 



SEQ 0086 





:S8g8 

.WORD 


29 

EM14 

ERR4 


2$: 


|SC»PE 
»MORD 


SEG 




11% 

BME 


IPJTHPO 


10000$: 

mill: 


EMDSEG 

EMf 


CSESEG 



KHECK FOR rL:LOE, ELSE EXIT SEG 



;MEXT SECTOR? 



;nq 



GO BACK 



;t%EMO OF SEGHEMftt 

>**EMD OF TEST** 

EMT C$ETST 
STARS 

..«*«««««*««!»«*««««««««« ««««** ««««««r«tftft*«*««««««ft«^««««i»«««ft«««ft ft ft 

;CHECK THAT HE CAM FORCE A HEADER MOT FOUMD AT THE 
;EN0 of a track DOIMG a HULTIPLB SECTOR READ, HE 
;SET UP TO READ TWO SECTORS iTASTiig AT SECTOR 2% 
^Wk.^WWiJlhW^^ ^28 WORDS THEli ABORT WITH A 
IHEAOER MOT FOUND FOR SECTOR 40 

..ftft*ftftft««*ftftft**ftftft»ftftftftftftftftftftftftftftftftftftftftftftftftft«*ftftftftftftftft*ft«ftftftftftftft 



027212 



,SBTTL **TEST 24** - FORCE HDR MT FMD AT EMD OF TRACK 
BGMTST ;**START OF TEST** 




004737 021356 



\%~ 



4032 
0126 



m 



104010 
000054 



177577 152774 



r^u 



152762 



im^ 'oiim nm 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 
EHT 

MOV 

MOV 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
BIC 



PCHDHOME 



CSEXIT 
L10055- 



C$BSEG 

#39.,GD0AT 
GDDAf,9RLDA 
" 129.,flRLMP 



IBUF 
R5,L 



*. LBA 



R54WTCRDY 
SEG 

CSESCAPE 
10000$-. 

E.CS,BDDAT 
#1777,BDDAT 



?HEADS OVER TRACK 
;HEADS go HOME OKAY 



;%%START OF SEGMEMTtt 



;CREATE LAST SECTOR 
7LOAD DISK ADDRESS 



;hqrd count 
;bos address 

;load the fumctiom im mext word 
;read 

;uait for controller ready 
;check for fl:loe# else exit seg 



;read CS 

;SAVE ERROR BITS 
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**TEST 24** 



004737 021356 



027374 

027374 104004 

027376 012777 

8 ?l m 

027416 012777 

027424 004537 

027430 000014 



OOO66O 
152630 
177600 
020456 



002170 



002170 



152624 



15:35 PAGE 1-57 
- FORCE HDR MT FMD AT EHD OF TRACK 



SBQ 0087 



4$: 



CMP 

BEQ 

JSR 

CKLOOP 

EMT 

CMP 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



1$: 



10000$: 



ENDTST 
L10055: 



.SBTTL 
BGNTST 



ENDSEG 

EMT 



|112000/BDDAT 
RS^CHERR 
C$CLP1 
#112000, BDDAf 

30.£EM23/ERR0 
TSERCODE 

EM23 
ERRO 



CSESEG 



;hdr mot foumd set? 
;yes, comtimoe 



;header mot found did not set 



;%%END OF SEGMEMTtt 
;**END OF TEST** 



C$ETST 



**TEST 25** - FORCE NON-EXISTANT MEMORY ERROR 

;**START OF TEST** 



STARS 

• .ftft«ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft«ftftftftftftftftft««j|.«{i(j^««««^j^^«^j^^^^^^ 

;force a noh-existant memory error, 

;WE SET the RLBA to EQUAL THE 

>LAST ADDRESS IN MEMORY AMD ISSUE A READ, THE 

;READ SHOULD ABORT AFTER ONE WORD TRANSFERRED 

• .ftftft«ftftftftftftft*ftftftftftftftftftftftft*ft*ftftftftftftft«ft5afftftftftarftaftft,iji.j^^»*js^*ft,ij^;j,ftjj,^^^ 



JSR 

CKERFG 

EMT CSEXIT 

.WORD L10056-. 

BGNSEG 
EMT 



PCHDHOME 



C$BSEG 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



MOV 
MOV 
CLR 
MOV 
JSR 
HEAD 



#177774^ flRLBA 
|bA16!BA17,XMEM 



lllUdtc 



;%%START OF SEGMEMTtt 



;LEAD BA 

;SET EA BIT 

;LOAD DISK AVAILABLE 

;WORD COUNT 

?LOAD THE FUNCTION IN NEXT WORD 

;read 
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Pll 22-H0V-78 15S28 **TESf 25** - FORCE MON-EXISTAHf HEMORY ERROR 



) 



004537 
000026 




SEQ 0088 



021276 



020000 002226 



027472 004737 021356 

021506 

027510 

027510 104004 

027512 005037 002144 



d57S24 012117 177774 
027532 012737 000060 



3$: 



10000$: 

EMDTST 
L10056: 



JSR 

ESCAPE 
EHT 
.WORD 

Bit 

BHE 

.WORD 
oHORD 
.WORD 

ESCAPE 

EMT 
.WORD 



EMDSEG 



R5#HfCRD¥ 
S|6 

CSESCAPE 
10000$-, 

PXM^E.CS 



fid 

EM24 
ERRO 



EM24,ERR0 
CODE 



SBG 

CSESCAPE 

10000$-« 



C$ESE6 



;liAl? FOR COMTROLLER 

>CHECK FOR FL!LOE/ ELSE EXIT SEG 



;DID MXM SET? 
;¥ES# COMTIMUE 

}n%n DID NOT SET 

;CHECK FOR FLSLOE/ ELSE EXIT SEG 

;%%END OF SEGMEHTtt 
;**EHD OF TEST** 



EMT CSETST 

.SBTTL **TEST 26** - FORCE HOM-EXISTAHT MEMORY ERROR INTERRUPT 
BGHfST ;**START OF TEST** 

.11********* ******************************** ********«*«*»* ******* 
JCHECK THAT tfE CAH FORCE AH INTERRUPT WITH A 
iHOM-EXISTAHT MEMORY ERROR. 
STARS 
..«******«**«*»«*******************************«***************** 



JSR PCHDHOME 

CKERFG 

EMT CSEXIT 

.WORD L10057-. 

BGNSEG 

EMT CSBSEG 

CLR ISTFLG 



;HEADS OVER TRACK 
;HEADS go HOWE OKAY 



;%%START OF SEGMEMT%% 
;CLEAR INTERRUPT OCCURAMCE FLAG 



hW'-^ 



262 



SETPRI 

MOV 

EMT 

MOV 

MOV 



#PRIOO 
pPRIOO^RO 

tl77774^pLBA IPRELOAD BA 
!bA161BAI7/XMEM ;SET EA BITS 



ASSEMBLY ROOTIMES 
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027604 104462 

Im s ill? 

027612 014244 



027614 
027614 
027616 

mn 

027630 



104010 
000026 



mu 

027630 104462 

mm km 

027636 014244 

104010 
000002 
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CLR 
MOV 



002144 



15:35 PAGE 1-59 
- FORCE MOH-EXISTAMT 



152476 



020000 002226 



4$: 



3$: 



ARLDA 

JSR R5,LDF0MC 

READIINTEN 

JSR RSfcWTCRDY 

^^-^■"^ ulnuo 

CSSPRI 
SEG 



MOV 

EMT 

ESCAPE 

EMT 

.WORD 

TST 



ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



IHTFLG 
4S 

32-,EM44,ERR0 

TSEftCODE 

32 

EM44 

ERRO 



ESCAPE SEG 
EMT CSESCAPE 
lOO"-' 



.WORD 

BIT 

BNE 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



OOOOS- 



PXM^E.CS 

33.irEM24/ERR0 
TSERCODE 

EM24 
ERRO 



ESCAPE SEG 
EMT CSESCAPE 
100 



MEMORY ERROR INTERRUPT 

;LOAD DA 
;WQRD COUNT 

;L0AD the FUNCTION IN NEXT WORD 
IREAD 

;WAIT FOR CONTROLLER 
;PRIORITY TO 7 

;CHECK FOR FL:LOE, ELSE EXIT SEG 



INTERRUPT OCCUR? 

;yes okay 

;no interrupt w/nxm 



;check for fl:loe, else exit seg 



SEQ 0089 



;did nxm set? 

;YES, continue 



;NQ NXM 



?CHECK FOR FL:L0E, ELSE EXIT SEG 



lOOOOS-, 



88 027644 
^- 027644 



(3) 027644 

in Qi2§4^ 104005 

2389 027646 

(3) 027646 

(3) 027646 104001 



2393 027650 

2394 

2395 027650 

mi 

2399 



10000$: 

ENDTST 
L10057: 



EMT 



EMT 

, SBTTL **TEST 27** 
BGNTST 



CSESEG 
CSETST 



;%%end of SEGMENT%% 
;**END of test** 

check read write loop 

;**start of test** 



;JeRIFY that THE WRITE ACTUALLY WRITES. AT THIS 
hiME WE KNOW THAT THE WRITE FUNCTION GOES THRU 
JtHE motions but we DON'T KNOW THAT THE DATA 
^ACTUALLY GETS RECORDED ON THE PLATTER. 



ASSEMBLY RQUTI 
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SE@ 0090 



04010 
000404 



STARS 

I ^ ********* ft* ***** St* ***«?****&& ft*** Sft*«*^«ar&aSra*tS,ar *»«*»** *»«*»#»«* 



3$: 



152332 

mm Mn 



4$: 



177600 152240 
*g30|a 152226 



mm 



loss 




JSR 

ESCAPE 

EMt 

.WORD 

BGHSEG 

EMT 

MOV 

MOV 

CLR 

DEC 

BKE 

CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.UORD 

JSR 

TST 

BNE 

ESCAPE 

EMT 

-WORD 

BR 



PC^HDHOME 



BUF/RO 

128,,R1 

'25252^(R0)* 



S/LDFUMC 

R5elifCRDV 
SEG 

C|ESCAPE 
10000$-« 

RS^CHERR 
SEG 

CSESCAPE 
10000$-, 

CSBSEG 
pUF^RO 
|12B.,R1 
CRO)* 

4I 

gRLDA 

1-128. ^SRLMP 
leUFjrgRLBA 
RS^LDFUflC 

R5,HTCRD¥ 
SEG 

CSESCAPE 
10001$-. 

RS^CHERR 

T.CRC 

8S 

SEG 

CSESCAPE 



JHEADS OVER TRACK 
;HEADS GO HOME OKAV 



;%%START OF S£GHE8T%% 



ISET UP WRITE BUFFER 
;128 UOROS/ONE SECTOR 



;iiRITE PATTERH TO BUFFER 
;D0NE7 

;nO£ branch back 
;di§k address 
;hord count 
;bus address 

»„,«^ «;ife°*D„IBI FOMCTION IN NEXT WORD 
;WRITE THE PATTERN 
;SAiT FOR CONTROLLER READY 
;CHECK FOR FLILOE, ELSE EIIT SEG 



SCHECK CHTLR FOR ERRORS 
>CHECK FOR FLSLOE/ ELSE EXIT SEG 



;%%START OF SEGMEMTtt 



;CLEAR OUT BUFFER BEFORE 

;REApiNG 

;CLEAR BUFFER 

;done? 

;N0, BRANCH BACK 

;LOAD DISK ADDRESS 
>WORD COUNT/ONE SECTION 
;LOAD BUS ADDRESS 

;L0"~ 
;G0 READ 
;«ilT FOR CONTROLLER RgAQY 



AD THE FUNCTION IM NEXT WORD 



|5001$- 



99$ 



ECK FOR FL:L0E^ ELSE EXIT SEG 



ICHECK CNTLR FOR ERRORS 
;WAS ERROR A DCK?? 
^YES^SEE IF HE A DUMP 
;CHECK FOR FLSLOE, ELSE EXIT SEG 



;SKIP AROUND 
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15:35 PAGE 1-61 
■ CHECK READ WRITE LOOP 



SEQ 0091 



005737 
001772 



016774 




030246 
""0246 



104005 
104005 
104001 



000012 



002166 
002170 

016776 



8$: 



99$: 



5S: 



333$: 



9S: 



6$: 
7$: 



10001$: 



10000$: 



ENDTST 
LIOO6O: 



TST 
BEQ 

CKLOOP 
EMT 

CLR 

CLR 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

MOV 

CMP 

BNE 

ESCAPE 

EMT 

.WORD 

INC 

TST 

BNE 

ERRDF 

TRAP 

-WORD 

.WORD 

.WORD 

INC 

BR 

PRIHTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CKLOOP 

EMT 

TST 

DEC 

BNE 

EMDSEG 

EMT 
EMDSEG 

EMT 



T.DMP 
10$ 

C$CLP1 

CDCNT 
CHECK 

|buf,r2 

|128;,R1 
|125252#GDDAT 

(rSLbddat 
gddat^bddat 

rI^tmpi 
cdcnt^t.lmt 

333$ 

SEG 

CSESCAPE 

10001$-. 

CDCNT 

CHECK 

3L,EM25,ERR8 
TSERCODE 

EM25 
ERR8 
CHECK 
6$ 

#FRMT6^TMP1,GDDAT 
BDDAT,-(SP) 
GDDAT,-(SP) 

iFRMfL-(SP) 

CSPNTB 
#12,SP 

CSCLPl 

5S 

C$ESEG 

C$ESEG 

C$ETST 



;D0 WE STILL WANT TO CHECK IT 

?N0 

;YES# CHECK FOR LOOP FIRST 



?CLEAR NUMBER WE'RE TO PRINT 

;ALLOW HEADER ON FIRST PRINT 

;COMPARE BUFFER TO CHECK WRITE 

;i28 WORDS 

;SET UP EXPECTED 

;GET DATA 

;is data okay 

jyes^ continue 

;load bad mem location 

;checked enough?? 
;Na 

JCHECK FOR FL:L0E/ ELSE EXIT SEG 



;account for it 

;header or JUST data 
;JUST data 
;bad data 



;account for print of header 
^bddat 



;bump buffer pointer 

;D0NE? 

;no^ GO back 

;%%end of segment%% 



;%%end of segment%% 
;**end of test** 



liSiMiLf iOUflBiS 



----- *«ftSf 2S®* » CHECK ilLQ LliSi 



SgQ 0993 



11 



iiitso 



@3@2se 



L 



: 



03O3S0 



a303(« 



I 



004731 

§11103 



0213S6 



093#ia 



S82312 



;: 






1S1724 



mill 



m i!;] 



oaiits 

020214 

mm 

mil 



mm 



BSitif 



CHgCi ilLO Lligf 



i'«®s?iif IF fii?*« 



f!i!l* 



II 



6$S 

2$l 



3|s 



mill ^nolVihi 



J#«®®®«s*«ra««##if®fi«®ft*#««r*«»S(ii«*^af#ad«a**«*««flt««®asi«*«*««ft««« 



ID 



881 
88!! 

Sii 



Mp] 
JSJ 



iior, 



PC^HSHOii 

EiSiSl!-. 

iOIfflfi-iS 



P||llfCSDf 



•" mi 

IPi §11 



Big 
HOf 



cissss 



'MS 



ittsfiif or siengiftt 
tiii I if a MiPOif 

PSffEli 

SICE 

Q litlfi ?l??iSi OifO DISS 

fit 

ILOID fHi rOiCflOi Ii lllf IIQBD 

iCHECiC rOi FLlLQi^ §LSg illf SiS 



ittsfstf or 3gei9Eif«% 

iCLEIi MpOtf SirOii ilJIDIiS It §iCIC 

lipi 



,'!K"5gS8s"" " "" 



liiCfOR ZEUO 



liSgiiLf iQllfliiS 
CIiLii«fll 22-»iQf«fi 



; 



SI 



9 

ill 



m 



16400i 



mil iiiiii 
n 

II ttiii) 

i l!i 

mwe mm 



M&Cfll 

issai 

02©4S6 
02l2ti 

mm 



016114 
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^®?iSf 2S»* - CHECK SILO LliiS 



SEQ 00f3 



<i) 



11 



liifli 
002130 



002130 
002122 



002122 
002170 

000012 



881111 

mm 

016776 



10$S 

SIS 

9§|s 
5SS 

333§s 



9SS 



4$ I 



i 

EM' 

m 

if 



'.km 

liO 



"ORD 



H0¥ 

ill 

.mm 

IMC 
»IIORD 



i5,LDrOiC 

01 
CSCLPl 

mw 

CpCBf^f,L^f 

lOfiolS-* 
CDCBf 

CHECK 

lUlo 

CHECK 
4$ 



ILOIO fHS rOBCtlOS III BEX? MOID 
iCiSCiC rot fLlLOE^ ^Lm ill? SE6 

roR iiiOis 
LSI EXIT sse 



nm'hi'fiUzhis 

ISKIP 

iit: 



""!.'S!ffi 



H&i? fO CHECK I? 
CHICS fOR LOOP riRS? 



pilPI www 



BRIiCH 

iCHiCKEO EBOOCH?? 
|!8iCiC rot FiSLOE^ ELSE illf SEC 



l&CCOOif FOR I? 

7HEapR OR JUS? DAfI 
ijysf D|?& 
IBId Dkfk BhCK 



PRIMfB #rRli?7^?MPl^ 
MOV BDD&f,-(SPl 

MOf l4^-csn 

emI lUm 

CICLOOP 



^ICCOOif FOR PRIIIf OF HE&DiR 
6DDil?^§D0&? 
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(3) 030634 104006 



030636 
030644 
":50 
656 

939660 

030660 
030660 



3^0650 



0662 
0664 



030666 
030666 
030666 
030670 



m 



030672 



062737 
005237 
023727 
001317 



104005 



005723 
001203 



104005 
104001 



000002 
002162 
002162 
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002164 
000201. 



10001$: 



10000$: 



EHDTST 
L10061: 



.SBfTL 
BGMfST 



EMf 

ADD 
INC 
CMP 
BNE 

ENDSBG 

EMT 

tST 
BNE 

ENDSEG 

EMT 

EMT 
**TEST 



C$CLP1 
TMP1^#129« 



C$ESEG 

;r3 



^R3,. 



C$ESEG 



SEQ 0094 



INEXT LOCATION 

;next word 

IDQNE 

}m, GO BACK 



;%%EMD OF SEGME»T%% 



>DOHE ALL PATTERNS 
;NQ, GO BACK 



;%%EHD OF SEGMEIIT%% 
;**EHD OF TEST** 



C$ETST 
29** - CHECK THROUGHPUT OF SILO 

>**START OF TEST** 



BO 030672 



030672 



STARS 

>TEST THAT THE 



>A-0;iSBrpI?f JJS'-?N°gl?H"E§cJ??8gr!i^-!*^-«i'-t-''SITi y..mtmU that C0«T»»S 
50RDER, HE DO A ONE SECTOR TRANSFER 



EXPECT IT BACK IN PROPER 



• «ft«s»«A««i»»««rft«««««ft««ft »»«««««» «tftft««««««ftft«'«ft Aft ft ft«ft««ftft«««««» ft* A 



030704 
030706 

030710 
030710 



004737 021356 



I'onii 



104004 



PCHDHOME 



JSR 

CKERFG 

EMT CSEXIT 

-WORD L10062- 

BGNSEG 

EMT C$BSEG 



;HEADS OVER TRACK 
;H£ADS GO HOME OKAY 



;%%START OF SEGMEHTtt 



030736 
030744 
030752 



012700 QOOOOl 




2$: 



MOV 
MOV 
MOV 
MOV 
INC 
DEC 
BNE 

MOV 
MOV 
CLR 



fl^rRO 

U 

IBUFfgRLBA 
-128.,@RLMP 
RLDA 



;INITIAL 1 

1128 WORDS 

;B0FFER 

;URITE A WORD 

;HEXT PATTERN (1-128) 

;done 
;N0 

;SETUP TO write 
1128 WORDS 
;DISK ADDRESS 
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2605 
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**TEST 29** - CHECK THROUGHPUT OF SILO 



SEQ 0095 




151212 
151210 



2166 
216' 



002_ 

002164 

002162 

002170 
002166 






002130 016776 



3$: 



10$: 
8$: 

99$: 
4$: 



104010 
000116 



JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 

MOV 

MOV 

CLR 

DEC 

BNE 

MOV 

MOV 

CLR 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

TST 

BNE 

ESCAPE 

EMT 

• WORD 

BR 

TST 

BEQ 

CKLOOP 

EMT 

CLR 
CLR 

MOV 
MOV 
MOV 

MOV 
CMP 
BEQ 

CMP 

BNE 

ESCAPE 

EMT 

.WORD 



R5,LDFUNC 

R5<rWTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5|-CHERR 
SEG 

CSESCAPE 
10000$-. 

C$BSEG 
BUF^RO 
128. /Rl 

3$ 

#BUF,§RLBA 
1-128. /9RLMP 

Srlda 

ft5,LDFUNC 

RS^WTCRDY 

CSESCAPE 
10001$-. 

R5,CHERR 
T.CRC 

SEG 
CSESCAPE 

T.DMP 
10$ 

CSCLPl 

CDCNT 
CHECK 

il,GDDAT 
BUF,TMP2 
1/TMPl 

@TMP2,BDDAT 
BDDAT^GDDAT 
6$ 

CDCNT, T.LMT 

333$ 

SEG 

CSESCAPE 

10001S-. 



;LOAD THE FUNCTION IN NEXT WORD 
;CHECK FOR FL:L0E, else exit SEG 

JCHECK CNTLR FOR ERRORS 
?CHECK FOR FL:L0E, ELSE EXIT SEG 

?%%START OF SEGMENT%% 

;CLEAR BUFFER 
;128 IN LENGTH 
;CLEAR 

;down count 
;done? 

;bus address 
;w0rd count 
;disk address 

;load the function in next word 

;CHECK FOR FL:L0E, else EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;WAS ERROR A DCK?? 
lYES^SEE IF WE A DUMP 
;CHECK FOR FL:LOE, ELSE EXIT SEG 

;SKIP AROUND 

;Da WE STILL WANT TO CHECK IT 

;NQ 

;YES/ CHECK FOR LOOP FIRST 



;CLEAR NUMBER WE'RE TO PRINT 
;ALLgW HEADER ON FIRST PRINT 
? START GOOD AT 1 
JSTART OF BUFFER 
;FIRST WORD 

;get word 

;CORRECT? 

;yes 



;nq 



;CHECKED ENOUGH?? 



;CHECK FOR FL:LOE, ELSE EXIT SEG 



ISSEMBLf SOUfliES 
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**fiSf 29«* 



15s 35 PIGS 1»66 

cmcK tmowmm or silo 




SSQ 0@fi 



iiccooif roi If 



isccQUif roi fsiif or hiiois 



Si lit 



IttSiD or Sg@MEiT%% 

ittiiD or sggsigiftt 

l*«EiD OF ?ES?®« 



C$E?Sf 



«SBT?L *^fSSf 30*^ - CHECK 2180 FILL 01 iSIfi 

BGifSf i^^-sfia? or fBSf** 



Aft********-!* igf •&**&*«« *«ftft**«ft*®«««»afa®a«»6«#fif#«t®*#«ia*«afts»«r*ft«r A ft 



031320 



~Q[ . 

HE SECfOR MIfH Z\ 
~~" aORD COOHfS 



ScoifagLLil MILL r! 



iL SECfORS CLiiS fH&i 
LL fi THE RiHAlilMG PO 



\%^T\l- 



J|> jjOgDS, THE 



CHBCE THIS fElfORE 
27 



d«dt«[(&«&;»&»««r#j^tj^S«d««««6&&»iinS!«d&&t&«««^1»«&«igr ««««««[« ft «««««« ««««««« 
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lfAC¥ll 
1SS28 



2683 l\\\2\ 004737 021356 

PI mm mill 



0M336 104004 




301(1052) 22-M0¥-78 1 
**fESf 30** - 

JSR 

CKERFG 
EM? 
«MORD 



B6HSEG 
EMf 

MOV 
MOV 
MOf 
MOf 
DEC 
BSE 
HOf 
MEG 
M0¥ 
MOV 



002162 



150636 



35$: 
3S! 

33S! 



18$S 



11811! 



016774 



10$S 
8S! 



5:35 PAGE 1-67 
CHECK ZERO FILL 

PC^HDHOHE 



OH MRITE 



SEQ 0097 



CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMf 

.WORD 

JSR 
|S|APE 

,IIORD 

BGHSEG 

EMf 

MOV 

MOV 

MOV 

DEC 

BME 

MOV 
MOV 
CLR 
JSR 

JSR 

ESCAPE 
EMf 
aHORD 

JSR 
TSf 

BHE 

ESCAPE 

EMf 

«»ORD 

BR 

TSf 



imii-. 



CSBSEG 

il,fMPl 
BOF^RO 
|il§JfRO)* 

fiPl/RO 
RO/gRLMP 

RS^LDFUMC 

R5*MfCRDY 
SEG 

CSESCAPE 
10000S-* 

R5,CHERR 
SEG 

CSESCAPE 
10000$-« 

CSBSEG 

iBUF^RO 
piliiicRO)* 

18$ 

fBOFjrSRLBA 
f-128:^§RLMP 
IRLDA 
RS^LDFONC 

RS^MfCRDY 
SEG 

R5#CHERR 
f«CRC 

SEG 

CSESCAPE 

|||3l$-, 

f«DMP 



IHEAOS OVER fRACK 
IHSADS 60 HOME OKAY 



lltSfARf OF SEGMEIIftt 



Rf MIfH 1 HOR 
IE ByFrER_IJlf 



MRITE 

52S25# WE-'LL 

fE 128 MORDS ALL THOUGH WE'RE 
I GjIiG_- 



bSPfIII 



A»SFER < 128 



, WIf 

60 BACK 
TRAMSFER WORD COOMT 
ITE FOR RLMP 
tE WORD COUIff AHAY 
OP RLBA 



lOHL 
liil 

;SEf 

ILOAD fHE FOMCflOH IS BEXf MORD 
;SRltE If 

;aAIf FOR MRIfE fO FIMISH 
;CHECK FOR FLJLOE^ ELSE EXIf SEG 



ICHECK CMfLR FOR ERRORS 
>CHECR FOR FLSLOE, ELSE EXIf SEG 

|%%SfARf or SEGMEMftt 

;WE''RE GOIMG fO OVERLAY BUFFER BEFORE 

;REAOIMG If BACK« 

^OVERLAY If mfH COMPLIMEMf 

?P0NE? 

}mg KEEP GOING 

iSEf OP fO READ 

;12| HORDS fO CHECK ZERO FILL 

SsicfOR 

;L0AD fHE FUNCflOM IN HEXf WORD 

;BAIf fIL ME FIHISH fHE READ 
JcfllCK FOR FL:LOi, ELSE EXIf SEG 



iCHECK C^fLR FOR ERRORS 
;liAS ERROR A DCK7? 
lYES^SSE IF IIE A DUMP 
>CHECK FOR FLSLOE^ ELSE EXIf SEG 



SSKIP ARQUMD 

IdO me STILL MAMT fO CHECK If 



15:28 
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■ CHECK ZERO FILL 



002166 
002166 

016776 



99$: 



4$: 



333$: 



9$: 



12$: 
6$: 



7$: 
10001$: 



BEQ 

CKLOOP 

EMT 

CLR 

CLR 

MOV 

MOV 

MOV 
CLR 
MOV 
MOV 
CMP 
BEQ 

CMP 

BNE 

ESCAPE 

EMT 

-MORD 

IMC 

fSt 

BME 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

INC 

BR 

PRIMTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADO 

CKLOOP 

EMT 

TST 

IHC 

DEC 

BEQ 

DEC 

BGT 

CLR 

BR 



BDDA 
12$ 



10$ 

CSCLPl 
CDCHT 
CHECK 
TMP1,R2 
#128. ,R1 

|B«P,R3 

"52525£GDDAT 

R3)£BDDAT 

-DAT^GDDAT 

55CMT,T.LHT 

SEG 

CSESCAPE 
10001S-« 
CDCHT 

CHECK 

37-£EM27/ERR12 
TSERCODE 

EM27 
ERR12 



JYES^ 



CHECK FOR LOOP FIRST 



;CLEAR fiUMBER ME'RE TO PRINT 
;ALLOH HEADER OM FIRST PRINT 
;«ORDS MRlffEH IN R2 



;CHECK 128 HORDS 

;SET UP BUFFER BEGINNING 

;ZERO HORO COUNT 

>SET UP EXPECTED 

>GET WORD 

;IS UORD CORRECT? 

;¥ES, GO CHECK COUNTS AMD REPEAT 



;Ha 



JCHECKED ENOUGH?? 



;CHECK FOR FLSLOE^ ELSE EXIT SEG 



; ACCOUNT FOR IT 

;HEADER OR JUST DATA 
UUST DATA 



CHEi 
l" 



2$ 



#FRMT9/TMP1^R3^ 
BDDAT,-(SP) 
GDDATJ-CSP) 

R3>r-(SP) 

TMP1#-(SP) 
FRMT9,-(SP) 



;accouht for print of header 
gddat^bddat 



|FRMt9,-( 

CSPHTB 
#14,SP 



CSCLPl 



R2 



GDDAT 
4$ 



;DO!iE ALL UORDS? 

;EXIT TEST 

?DOIiE CHECKING NON-ZERO WORDS 

;Na£ BRANCH BACK 

;YES|r SET EXP'D AS ZERO 

;BRANCH BACK 

;exit test 

;%%END OF SEGMENT%% 



ASSEMBLY 
CZRLBB-P 



ROUTI 
11 



NES 
22-H0V-78 



MACYll 30A(1052) 
15:28 " 



031752 104005 



oos^n 



031754 

mm 

031774 
031774 
031774 

um 

031776 



104005 
104001 



031346 



000200 
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*TEST 30** - CHECK ZERO FILL ON WRITE 

EMT CSESEG 

IMC TMPl 

CMP TMP1,#128« 

BEQ 34S 

JMP 35$ 



SEQ 0099 



032000 



34$: 



10000$: 



ENDTST 
L10063: 



-SBTTL 
BGNTST 



ENDSEG 

EMT C$ESEG 

EMT C$ETST 
*TEST 31** - CHECK SECTOR BITS 



?%%END OF SEGMENT%% 
;**END OF TEST** 



OF HEADER COMPARE 
;**START OF TEST** 



032000 



;Iest that all sector bits of 
;uniquely. we tested the head 
;but that was not an extensive 
;the test procedure is to writ 
;0 with the sector address* th 
;each sector- if any sector h 
;which was expected then we ha 

jERROR PRINT OUT WILL GIVE SEC 



HEADER WORD CAN COMPARE 
ER COMPARE LOGIC EARLIER 

TEST OF THE SECTOR BITS- 
E EACH SECTOR OF TRACK 
EN GO BACK AND READ 
AS ANY DATA THEN THAT 
VE AN ERROR 
TOR/ EXPECTED AND RECEIVED 



032000 004737 

032016 
032016 



2012 104032 
2014 000414 



032020 



032024 
032024 



104004 
005037 



032026 012 

mil m 

032042 005 



104004 
012702 



021356 



002160 



003052 
000200 
002160 



1$: 



199$: 
2$: 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 
EMT 

CLR 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
DEC 



PC/HDHOME 



CSEXIT 
L10064-. 



CSBSEG 
TMPO 



C$BSEG 



#BUF/R2 

p28wRl 

TMP0/TR2)-s- 



;HEADS OVER TRACK 
;HEADS go HOME OKAY 



;CLEAR 



;%%START OF SEGMENT!! 



;%%START OF SEGMENT!! 



;HRITE a pattern FOR THE WRITE 
>ONE SECTOR'S WORTH 

;hrite it 

;DONE/ 
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- CHECK SECTOR BI 



il!til 



000050 



150072 
150063 



150060 



98$: 
3S! 



002166 



10$: 



8$: 



ITE 



HOV 
MOV 
MOV 
J|B_ 

JSR 

ESCAPE 

EMf 

.WORD 

IMC 

CMP 

BNE 

CLR 

BGNSEG 
EMT 

MOV 
MOV 
CLR 
DEC 

BNE 

MOV 
MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

tST 

BNE 

ESCAPE 

EMT 

.WORD 

BR 

TST 

BEQ 

CKLOOP 

EMT 



2$ 
I- 1 



!ior,|liCJ9A 



8.£SRLMP 
,|RLB 

RS^rWTCRDY 

SEG 

CSESCAPE 

10001$-. 

TMPO 

TMPC 



fS OP HEADER COMPARE 
>IF HOT^ GO BACK 
;OilB SECTOR MQRD COUMT 

{write from BUF 

;SECTOR ^^^^^ ^^^ FOMCflOli IM MEXT WORD 



SEQ 0100 



199$ 
TMPO 



#40. 



C$BSEG 

!BUF,R2 

3$ 

TMPO,»RLDA 
#BUF/iRLBA 

R5/:WTCRDY 
SEG 

CSESCAPE 
10002$-- 

R5#CHERR 

T.CRC 

8$ 

SEG 

CSESCAPE 

10002$-. 

§9$ 

T.DMP 

10$ 



;CHECK NOW TO 
99$: 



C$CLP1 
SEE IF WE 



5$: 



CLR 
CLR 
MOV 
MOV 
MOV 
MOV 



CDCNT 
CHECK 
TMPO/GDDAT 

!BUF^R2 
128. ,R1 
R2)4-,BDDAT 



;IIEXT SECTOR 
>ALL DOME?„ 
im GO BACK 
;CLEAR 

;%%START OF SEGMENT%% 

;CLEAR THE BUFFER FIRST 
;128 WORDS 



;GET SECTOR 
;SETUP BUS ADDRESS 



;READ A SECTOR^^^ FUNCTION IN NEXT WORD 
JCHECK FOR FL:LOE, ELSE EXIT SEG 



5CHECK CNTLR FOR ERRORS 
;WAS ERROR A OCK?? 
;YES,SEE if we A DUMP _ „^^ 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 

';D0^WE*STILL WANT TO CHECK IT 

*N0 

5yES/ check FOR LOOP FIRST 



READ THE RIGHT SECTOR 



?CLEAR NUMBER WE'RE TO PRINT 
JaLLOW HEADER ON FIRST PRINT 

Jexpected data 
{buffer 
jword count 
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023737 
001440 



mi^e 



032 
032 



m 



031--. 
032331 
032334 
032336 



023737 
001002 

104010 
000110 
005237 

005737 
001007 

104462 
000046 
013105 
014754 



032342 00 



mm 

032374 
032400 
032400 



032406 
032412 
032420 

032422 
032422 
032422 

032424 
032424 



005237 
-041f 



MACYll 
15:28 



002170 
002130 



013746 

nmt 

01060Q 
104014 
062706 

104006 

mi 

001243 



104005 

104005 
104005 
104001 



30A(1052) 

i 

002166 
016776 



22-NOV-78 
*TEST 31** 



15:35 PAGE 1-71 
- CHECK SECTOR BITS 



OF HEADER COMPARE 



SEQ 0101 



002130 
002122 



002122 



002170 
002166 
002160 

mu\ 

000012 



00^16 



333$: 



002160 000050 



9$: 



6$: 



CMP 

BEQ 

CMP 

BNE 

ESCAPE 

EMT 

.WORD 

INC 

TST 

BNE 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

IMC 

BR 



BDDAT^GDDAT 
6$ 

CDCNT, T.LMT 

333$ 

SEG 

CSESCAPE 

10002$-. 

CDCNT 



;nq 



;CHECKED ENOUGH?? 



{check for FL:L0E/ else exit SEG 
/ACCOUNT FOR IT 



032432 



10002$! 

10001$: 

10000$: 

ENDTST 
L10064: 

.SBTTL 
BGNTST 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CKLOOP 

EMT 

DEC 
BNE 
INC 
CMP 
BNE 

ENDSEG 

EMT 

ENDSEG 

EMT 
ENDSEG 



CHECK 

38.^EM50,ERR11 
TSERCODE 

EM50 
ERRll 
CHECK 
6$ 

GDDAT/BDDAT 



?HEADER OR JUST DATA 
;JUST DATA 



/ACCOUNT FOR PRINT OF HEADER 



PRINTS #FRMT8,TMP 



^TMPO^G 

r-p 

-(SP) 

«ni8^-(SP) 

CSPNTB 
#12/SP 



BDDAT 
GDOAT 
TMPO#- 
|FRMT8, 

U 



CSCLPl 



Rl 

5S 

TMPO 

TMPOj 

98$ 



#40. 



;ALL of SECTOR CHECKED? 

{go back if not 

;next sector 

{done? 

{no, go back 

;%%END OF SEGMENT%% 



EMT 

EMT 
**TEST 



CSESEG 

CSESEG 

C$ESEG 

CSETST 
32** - WRITE CHECK HPR 



;%%END OF SEGMENTlt 
;%%END OF SEGMEMT%% 
;**END OF TEST** 

IMTEGRETY 

;**START OF TEST** 
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032432 
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mm 



004737 021356 

104032 
72 



003052 
177600 
147534 
020456 

021276 



020214 



005077 147502 

01^777 003052 

"777 177600 

-, .537 020456 
000014 

--"537 021276 

104010 
000242 
004537 020214 

104010 
000232 

104004 



15S35 PAGE 1-72 
• WRITE CHECK HPR IMTEGRETY 



SEQ 0102 



STARS 

..************«***«****««*** ft**** **«*«**«* ft* ft ***»*****««**»«««,**« 
>PJI£K„THAT MPg SILL MOT IMTERFERE WITH THE OPERATIOM OF THE 



risi 



ME SET 



SI I 
OP 



NIBOS. 
"RS 

******** ft* ******* ft ft** ft* ft* ****** ft ft ««««*«««««« ft «ftftjr«««^««f^^^^^«« 



LOCATIOH 4 TO HAMDLE THE TRilP IF IT HAPPEMS. 



PC^HDHOME 



JSR 

CKERFG 

EMT CSEXIT 

.tfORD L10065-. 

BGNSEG 

EHT CSBSEG 



;HEADS OVER TRACK 
;HEA0S GO HOME OKAY 



;%%START OF SEGMEHTtt 



299$: 



147544 
147542 



MOV 
MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

MRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 



BUF,RO 
128. £R1 
125252^(R0)4 

299$ 

!BUF,gRLBA 
-12§./§RLMP 
RLDA 
5^LDFUNC 

R5eWTCRDY 

SEC 

CSESCAPE 

10000S-. 

R5#CHERR 

SEG 



;SETUP AND WRITE 
;12i WORDS 
;WRITE 
>DOHE?? 



;LQAD BUS ADDRESS 

JWCRD COUNT 

;CLEAR DISK ADDRESS 

;L0AD the FUNCTION IN NEXT WORD 

;WAIT FOR CONTROLLER READY 
?CHECK FOR FL:LOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
JCHECK FOR FL:LOE^ ELSE EXIT SEG 



; VERIFY WRITE «ITH READ BEFORE WRCHK 



147472 
147470 



CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 
EMT 



ftRLDA 

SBUFciRLBA 
i-128.,gRLMP 
R5/LDFUNC 

R5/WTCRDY 

SEG 

CSESCAPE 

lOOOOS-. 

R5/CHERR 

SEG 

CSESCAPE 

10000$-. 



C$BSEG 



;LOAD THE FUNCTION IN NEXT 
FOR FL:LOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;%%START OF SEGMENT%S 
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15:28 **TEST 32** - WRITE CHECK NPR INTEGRETY 



002142 
021016 



1$: 



5$: 



6$: 



7$: 



SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

MOV 

CLR 

MOV 

CLR 

MOV 

BIS 

JSR 

MOV 

BIS 

BIC 

MOV 

MOV 

BIT 

BNE 

WAITUS 

MOV 

EMT 

DEC 

BNE 

JSR 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

CLRVEC 

MOV 

EMT 

ESCAPE 

EMT 

.WORD 

TST 

BEQ 

JSR 

ERRSF 

TRAP 

.WORD 

.WORD 

.WORD 



10001$: 



ENDSEG 



ERRVEC,fTRPHAN/#340 
#340.-f§P) 
#TRPHAN,-CSP) 
iRRVECf-(SP) 



. J£-(S. 
CSSVEC 

#BUF#@RLBA 

aRLDA 

1-128. ,8RLMP 

GDDAT 

DRIVE/GDDAT 

IWRCHK-GDDAT 

R5, BEFORE 

GDDAT^B.CS 

#201#B.CS 

lOPI^B.CS 

GDDAT, gRLCS 

#100. ;ri 

ICRDY^gRLCS 




R5, AFTER 

0.£CRTIM,ERR5 

T$ERCODE 



CRTIM 

ERR5 

ERRVEC 

ERRVECRO 

CSCVEC 

SEG 

CSESCAPE 

10001$-. 

TRPFLG 

7$ 

R5/AFTER 

l.,EM57,ERR0 

T$ERCODE 

EM57 
ERRO 



;SET UP FOR TRAP 



;CLEAR TRAP DCCURANCE 

;BUS ADDRESS 

;L0AD disk ADDRESS 

;WORD COUNT OF 128 

;SET UP CSR TO LOAD 

;SET IN DRIVE 

;SET IN FUNCTION 

;LOAD FOR ERROR PRINTOUT 

;SET IN COMMAND 

;LOAD CRDY 

;CLEAR (BIT 10) 

;ISSUE WRITE CHECK 

;WAIT FOR CRDY 

;NPR DONE 

;YES, 6$ 

;WAIT A WHILE 



;A WHILE UP 
;N0/ go BACK 



;C0NTR0LLER TIMED OUT 

;CLEAR VECTOR 
?CHECK FOR FL:L0E, ELSE EXIT SEG 



;DID TRAP OCCUR? 

;no 



EMT CSESEG 
ENDSEG 



;trap on write 



;%%END OF SEGMENT%% 
;%%END OF SEGMENTtt 
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033036 
033036 

033040 
033040 
033040 



033042 
033042 



033042 



104005 
104001 



22-W0V-78 
''TEST 32** 



15835 PAGE 1-74 
- MRITE CHECK NPR 



IMTEGRETY 



SEQ 0104 



10000$: 

ENDTST 
L1006S: 

-SBTTL 
BGNTST 
STARS 

« •**!**««******* «*****««***«***** *ft«t*«t«r *****«*«* ««*«**** 

;CHECK OP WRITE CHECK LOGIC UNDER PLAG HODE 

; WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) PROM 

IMEMORY (BUP). WE CHECK THAT NO ERRORS OCCUR, 

sTARS 



EMT CSESEG 

>**END OF TEST** 
EMT CSETST 
**TEST 33** - WRITE CHECK FUNCTION 

;**START OP TEST* 



ft#«r*«r«r««« 



A«ft*tt*«a« 



2993 

2994 
2995 
^996 
2997 
2998 



033046 
033054 
033056 

033060 
033060 



033062 
033066 
033072 
033076 
033100 



033134 
033"" 
033_ 
0331 



.__140 
033144 



033150 



033 

033 

033___ 

033122 

033126 

033130 
34 



mm 

033172 



004737 

104032 
000214 

104004 

012700 

012720 
005301 
001374 

012777 
012777 
005077 
004537 
000012 
37 



104010 
000122 

104004 



033152 005077 



004537 



021356 



0Q3Q52 
000200 
125252 



003052 
177600 
147124 
020456 



004537 021276 
004537 



020214 



147070 
020456 



147134 
147132 



147060 

147r-- 



056 



299$: 



JSR 
CKERFG 

EMT 
.WORD 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

-WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 



PC^HDHOME 



EXIT 
0066- 



C$BSEG 

!BUF,RO 
128. ^Rl 
125252/(R0)* 

299$ 

tBUF^eRLBA 
1-128. ,9RLMP 
flRLDA 
R5/LDFUNC 

R5£WTCRDY 

SEG 

CSESCAPE 

10000S-. 

R5#CHERR 

SEG 

CSESCAPE 

10000 



;HEADS OVER TRACK 
;HEA0S go HOME OKAY 



;%%START OF SEGMENT%% 



OOS- 
C$BSEG 
;VERIFY WRITE WITH READ BEFORE 



CLR 
MOV 
MOV 
JSR 



0RLDA 

|buf, 

ii/LDFtJftC 



BUF^^RLBA 
-12B./8RLMP 



;SETUP AND WRITE 
;128 WORDS 
JWRITE 
JDONE?? 



;LOAD BUS ADDRESS 
>waRD COUNT 

;clear disk address 

;load the function in next word 

jwait for controller ready 
jcheck for fl:loe/ else exit seg 

;check cntlr for errors 
;check for fl:loe/ else exit seg 



>%%START OF SEGMENT%% 



;L0AD THE FUNCTION IN NEXT WORD 



Ilk 
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MACYll 
15:28 



roil 

3030 



033176 
033200 
033204 
033204 
033206 
033210 
033214 
033214 
033216 



mm 

033226 
033234 

mm 

033250 
033254 
033254 
033256 



033266 
033266 
033266 

mwo 

033272 
033272 



033274 
033274 



033274 
033274 



000014 
004537 

104010 
000060 
004537 

104010 
000050 



104004 



iim 



104010 
000006 



104005 
104005 
104005 
104001 
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**TEST 33** 



005Q 

01, . . 
004537 
000002 



004537 021276 



021276 
020214 

147020 
177600 
003052 
020456 



033260 004537 020214 

033264 
033264 
033264 



147014 
147002 



15:35 PAGE 1-75 
■ WRITE CHECK FUNCTION 



SEQ 0105 



READ 

JSR R5,WTCRDY 

ESCAPE SEG 

EMT CSESCAPE 

.WORD 10001S-. 

JSR R5/CHERR 

ESCAPE SEG 

EMT 

.WORD 

BGNSEG 
EMT 



3$: 



CSESCAPE 
10001$-. 

C$BSEG 



CLR 
MOV 
MOV 
JSR 
WRCHK 

JSR 
ESC 
EMT 
.WORD 



@RLDA 

t-128-£»RLM 
fBUF^gRLBA 
R5,LDPUNC 



10002$: 
10001$: 

10000$: 

ENDTST 
L10066: 



JSR 
ENDSEG 



RS^WTCRDY 

SCAPE 
02$-. 

R5/CHERR 



J5K KD# 

ESCAPE SEG 
EMT__ CSESCAPE 



EMT 
ENDSEG 



EMT 
ENDSEG 



EMT 



EMT 



C$ESEG 
CSESEG 
C$ESEG 
CSETST 



;CHECK FOR FL:LOE, ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;%%START OF 5EGMENTt% 



?WORD COUNT 
;8US ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 
;WRITE CHECK 

;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 

;%%END OF SEGMENT%% 

;%%END OF SEGMENT%% 

;%%END OF SEGMENT%% 

;**END OF TEST** 



.SBTTL **TEST 34** - WRITE CHECK FUNCTION INTERRUPT 

BGNTST ;**START OF TEST** 

STARS 

;CHECK OF WRITE CHECK LOGIC UNDER INTERRUPT MODE 

;WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM MEMORY (BDF). 

;WE CHECK THAT NO ERRORS OCCUR. WE DO NOT CHECK RLDA OR RLRA 

INCREMENT AT THIS TIME. 

STI-- 

}}* 



004737 021356 



JSR 



PC/HDHOME 



;heads over track 
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15:35 PAGE 1-76 
- HRITE CHECK FUSCflON INTERRUPT 



SEQ 0106 




299$: 



146702 
146700 



146630 
146626 



44 

64 

00 146560 

003052 146546 



CKERFG 

EMT 

.tfORD 

MOV 
MOV 
MOV 
DEC 
BNE 

MOV 
MOV 
CLR 
aSR 
WRITE 
JSR 

ESCAPE 
EMT 
.WORD 
JSR 

ESCAPE 
EMT 
.WORD 
;?ERIFY WRITE 

CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 



CLR 
CLR 
MOV 
MOV 



(R0>4 



CSEXIf 
lI0067-» 

CSBSEG 

tBOr,RO 

299$ 



BUFireRLBA 
t-128./gRLMP 

I!:ldfomc 

RS^WTCRDY 
SEG 

RS^rCHERR 

SEG 

CSESCAPE 



BREADS GO HOME OKAY 



;%%START OF SEGMEHTtt 



ISETUP . _ 
llll^MORDS 



. iTE 

;doiie?7 



;LaAD BUS ADDRESS 

;mqrd count 

,CLE»R ''lgg,*'>¥8PP„,„,0M W HEXT »ORD 

;UAIT FOR CONTROLLER READY 
;CHECK FOR FL:LaE, ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:L0E, ELSE EXIT SEG 



.) 



_.ooos-. 

WITH READ BEFORE MRCHK 



|BUF£0RLBA 

#-128.^iRLMP 

ft5,LDFUSC 

RS^WTCRDV 

SEG 

CSESCAPE 

10000S-. 

R5/:CHERR 

SEG 

CSESCAPE 

10000$-. 



CSBSEG 



IMTFLG 
'RLDA 



BUF 



%(^t 



BA 



;LOAD THE FUNCTION IN NEXT WORD 

;CHECK FOR FL:L0E/ ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:L0E, ELSE EXIT SEG 

;%%START OF SEGMENT%% 



;CLEAR INTERRUPT OCCURANCE FLAG 

;SET UP WORD COUNT 
;SET UP BUS ADDRESS 



SETPRI KPRIOO 

MOV Sprioo^ro 

EMT CSSPRI 
JSR R5,LDF0NC 
SRCHKIINTEH 



;PRIORITY TO 



;L0AD the function in next WORD 
;WRITE CHECK UNDER INTERRUPT 
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033516 
033516 
033520 



033556 
033556 
033556 
033560 
033560 
033560 
033562 
033562 
033562 



033564 
033564 



104005 
104005 
104001 



22-N0V-78 
*TEST 34** 



15:35 
- WRITE 



PAGE 1-77 
CHECK FUNCTION 



INTERRUPT 



SEQ 0107 



004537 021276 



104010 
000036 



012700 000340 

Jo5?3^ 002144 
001004 



104462 
000004 
013537 
014244 

104010 
000006 

033552 004537 020214 



JSR 
ESCAPE 

EMT 
.WORD 

SETPRI 

MOV 

EMT 

TST 

BNE 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

ESCAPE 

EMT 

.WORD 

JSR 

ENDSEG 

EMT 
ENDSEG 



RS^WTCRDY 
SEG 

CSESCAPE 
10001$-. 

#PRI07 
1pRI07#R0 
CSSPRI 
INT 



?WAIT FOR INTER] 
;CHECK FOR FLSLI 



RUPT 
OE/ ELSE 



EXIT SEG 



NTFLG 



2$ 

4.,EM60^ERR0 
T$ERCODE 

EM60 

ERRO 

SEG 

CSESCAPE 

10001$-. 

R5,CHERR 



C$ESEG 
C$ESE& 
CSETST 



;SET PRIORITY TO 7 

;OID INTERRUPT OCCUR? 
>YES-BRANCH NO-REPORT 

;WRITE DID NOT INTERRUPT 



JCHECK FOR FL:L0E, ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;%%END OF SEGMENTtt 

;%%END OF SEGMENT!* 

;**END OF TEST** 



2$: 



10001$: 



10000$: 



ENDTST 
L10067: 



.SBTTL 
BGNTST 

?;**»*** ******** ************************************** *********** 
;CHECK THAT THE RLBA WILL INCREMENT PROPERLY AFTER THE ,^^^ „„.^^, 
JWRITE CHECK WAS FINISHED THE RLBA SHOULD BE 128 WORDS (256^BYTES) 
JCREATER. STARTING RLBA IS "BUF"^ ENDING SHOULD BE «BUP * 256. « 
-WE WILL MONITOR ALL ERRORS AND REPORT THEM ACCORDINGLY 

************************************************************** 



*TEST 35** - PROPER INCREMENT OF RI^BA ON WRITE CHECK 

;**START OF TEST** 



!T4 



033! 



Vo 



004737 021356 



033576 104032 

033600 000256 

033602 

033602 104004 

033604 012700 



JSR 

CKERFG 
EMT 
• WORD 

BGNSEG 
EMT 



003052 



PC/HDHOME 

CSEXIT 
L10070-. 

C$BSEG 
#BUF/RO 



;heads over track 
;heads go home okay 



;%%START OF SEGMENT%% 
;SETUP AND WRITE 
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15S35 PIGE 1-78 
- PROPER IlfCRENlItT 



OF RLBA ON URIfE CHECK 



SEQ 0108 



299$! 



MOV 
DEC 
BNE 

NOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 



im--^ m 



259$ 
iRLDA 

;5#lBfoiic 

R5,IITCRDY 

SEG 

CSBSCAPE 

10000S-. 

RS^CHERR 

SEG 



HORDS 



BOS ADDRESS 
COURT 



IHL - 

KLEAR DISK ADDRESS 
;LOAD THE P 



OSCTIOM IM REXT UORD 



CSESCAPE 

10000S-. 

iVERiry SRITE WITH READ BEFORE WRCHK 



7UAIT FOR COITROLLER READY 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



ICHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



3$: 



002170 



CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

-WORD 

B6NSEG 
EMT 



CLR 
MOV 
MOV 
MOV 
ADD 

JSR 

WRCHK 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 



ARLDA 

1bUF|.SRLBA 
J-128.,8RLMP 
R5/LDFU8C 

RS^WTCRDY 

SEG 

CSESCAPE 

10000S-- 

RS^CHERR 

SEG 

CSESCAPE 

10000$-, 



CSBSEG 



IRLDA 
BUFfgRLBA 
-128.#8RLMP 
BUF/GDDAT 
256.,GDDAT 

RS^LDFUHC 

R5#WTCRDY 
SEG 

CSESCAPE 
10001$-. 

R5#.CHERR 

SEG 

CSESCAPE 

10001$-. 

8RLBA,BDDAT 



;L0AD THE FUNCTION IN NEXT WORD 
JCHECK FOR FL:LOE, ELSE EXIT SEG 



ICHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;%%START OF SEGMEHT%% 



;SET UP BUS ADDRESS 
;NQRD COUNT 

;F0RM expected bus ADDRESS 
; AFTER WRITE 

SLOAD THE FUNCTION IN NEXT WORD 
;HRITE CHECK 

;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



JCHECK CNTLR FOR ERRORS 
;CHECK FOR FLtLOE^ ELSE EXIT SEG 



;READ 'RLBA' for present ADDRESS 



ASSEMBLY 
CZRLBB.P 



31 



ROUTINES 
11 22-N0V-78 

034032 023737 
034040 001404 

034042 
934042 10441 



034044 

034052 

034052 
034052 
034052 
034054 
034054 
034054 
034056 



UW- 



034060 
034060 



034076 
034076 

034100 
034104 
034110 

034134 
03414" 



3414i 
3415 



03.-.- 
034152 
034152 



-001 _ 
013575 
014410 



104005 



104005 



56 104001 



MACYll 
15:28 



30A(1052) 22-NOV-78 
**TEST 35** 



104004 



002170 002166 



004737 021356 



003052 
000200 
125252 



imu \m 

021276 



CMP 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



15:35 PAGE 1-79 
- PROPER INCREMENT 

BDDAT,GDDAT 
2$ 

5./EM6l£ERR4 
TSERCODE 

EM61 
ERR4 



2$: 
10001$: 

10000$: 

ENDTS 
L1001 



EMT 
ENDSEG 



ENDTST 
" "070: 



C$£SEG 
CSESEG 



.SBTTL 
BGNTST 



EMT CSETST 
**TEST 36** - PROPER 



OF RLBA ON WRITE CHECK 



;did 'ba' increment properly? 
;yes/ continue 



SEQ 0109 



;ba did not increment 



;%tEND OF SEGMENT%% 
;%%END OF SEGMENT%% 
;**£ND OF TEST** 

INCREMENT OF RLDA ON WRITE CHECK 
;**START OF TEST** 



STARS 

)CHECK THAT THE SECTOR INCREMENTS AFTER THE WRITE CHECK WAS FINISHED. 
;A full SECTOR WRITE CHECK THE RLDA SHOULD REFLECT AN INCREMENT 
SOF THE SECOTR. "GDDAT" WAS THE EXPECTED RLDA. 
STARS 



; *************************************************************** 



299$: 



JSR 

CKERFG 
EMT 
.WORD 

B6NSEG 
EMT 

MOV 
MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 



PC/HDHOME 

CSEXIT 
L10071-. 



C$BSEG 

iBUF^RO 
l^i2i2}(R0)+ 
2^9$ 

fBUF|r@RLBA 
1-128. ,§RLMP 
|RLDA 
RS^LDFUNC 

R5#WTCRDY 

SEG 

CSESCAPE 



;heads over track 
;heads go home okay 



;%%START OF SEGMENTtt 



;SETUP AND WRITE 
;128 WORDS 
?WRITE 

;done?? 



;load bus address 

>word count 

;clear disk address 

;load the function in next word 

;wait for controller ready 
icheck for fl:loe^ else exit seg 




Q52232 



:i2} 22-au!r-78 i;>sj!> fuse 1-80 
**fEST 36** - PROPER IICREMEBf 

.HORO 10000I-. 

C&Pi S|G 

CAPE . 



iVERIff 



nmi 



3S! 



145776 



2170 
2170 




or RLD& OM HRXTS CHECK 

-..«-.^ -i£"ipK CifLR FOR ERRORS 
ICHECS FOR FLSLOE^ ELSE EXIf SEG 



SEQ 0110 



BEFORE MRCHK 



INC 
MOV 
MOV 

JSR 

HRCHK 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT 
.WORD 

MOV 
CMP 
BEQ 

ERROF 

TRAP 

.WORD 

»uaRD 

.tJORD 



CSBSEG 



GDDAT 

GDDAT,@RLDA 

GDDAT 

R5,LDFUMC 

RS^WTCRDY 
SEG 

CSESCAPE 
10001$-, 

R5£CHERR 
SEG 

CSESCAPE 
10001S-, 

E.DA#BDDAT 
GDDAT^BDDAT 

6.££M62£ERR4 
T$ERCODE 

EM62 
ERR4 



;load the fusctios m rext word 

;CHECK FOR FL:L0E, ELSE EKIT SEG 

«..«« »ACHECK CMTLR FOR ERRORS 
;CHECK FOR FL:L0E, else exit SEG 

;%%START OF SEGMEMTtt 



;SETUP DISK ADDRESS 
^CREATE EXPECTED SECTOR 
^WORD COUNT 
;SETUP BUS ADDRESS 

,«RIIE cfifegH" ™' '"*""'• '" ""' "'""' 
;UAIT FOR CONTROLLER READY 
>CHECK FOR FL:LOE, ELSE EXIT SEG 



JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;r£ad disk address 

;did sector increment properly 

;yes, branch no, report error 

;da did not increment 



2$S 



;%tEHD OF SEGMEHTtt 



ASSEMBLY ROUTINES MACYll 
CZRLBB.Pll 22-HOV-78 15:28 



4344 
4344 
4346 
4346 
4346 
4350 



104005 



104001 
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**TEST 36** - PROPER INCREMENT OF RLDA OH WRITE CHECK 



SEQ 0111 



10001$: 

10000$: 

ENDTST 
L10071: 



EMT C$ESEG 
ENDSEG 



EMT 



C$ESEG 
C$ETST 



;%%END OF SEGMEMTtt 
;**END OF TEST** 



034352 
034352 



034352 



.SBTTL **TEST 37** 
BGNTST 



- MULTIPLE SECTOR WRITE CHECK 

;**START OF TEST** 



RS 



;CHECK^FOR MULTIPLE SECTOR WRITE CHECK. THIS TEST CHECKS 



276 



034352 
034356 
034364 
034366 

034370 
034370 

034372 
034400 
034406 
034412 
034416 
034422 
034424 



-34500 



004737 021356 



104032 
000354 



012737 000000 

012737 000000 

nwot mm 

001374 



104010 
000240 
004537 



(3) 034506 104010 



021276 



020214 



ssiiis 




299$: 



1$: 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

MOV 

BIS 

MOV 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 



PC/HDHOME 



C$BSEG 

#0,TMPO 

JO^TMPI 

PUF,R0 

fl29.,Rl 

|125252,(R0)+ 

299$ 

#BUF^9RLBA 
i-129.£flRLMP 

tmpLgddat 
tmpo;gddat 

R5£WTCRDY 

SEG 

CSESCAPE 

lOOOOS-. 

R5^CHERR 

SEG 

C$ESCAPE 



>HEADS OVER TRACK 
>HEADS GO HOME OKAY 



;t%START OF SEGMENTtt 



;SET0P AND WRITE 
;129 WORDS 
;WRITE 

;dohe?? 



;LOAD BUS ADDRESS 
;WQRD COUNT 



;LOAD THE FUNCTION IN NEXT WORD 

'SMI^^SS^CONTROLLER READY 
;CHECK FOR FL:LOE, ELSE EXIT SEG 

./.uc^.r .,aS"IPk,£S^^8.E0R errors 

;CHECK FOR PL:L0E/ else exit SEG 



ASSEMBLY ROUTIIiES HAC¥11 
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034510 000230 
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^ **fESf 37** - MULTIPLE SECTOR HRIfE CHECK 

,HORD 10000$-* 

;?ERIFY WRITE l&ITH READ BEFORE HRCHK 

TMPl^GODAT 
TMPO.GDDAT 
GDOAfeillLOA 

|!? «* " 

R5, - 



SEQ 0112 



020214 



104004 



MOf 

BIS 

MOV 

M0¥ 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT • 

.WORD 

BGNSEG 
EMT 



,LDF 
RS^ifTCRDY 



Ump 



SEG 
CSESCAPE 

R5|-CHiR6 
SEG 

CSBSEG 



;L0AD THE FOiCTIOM III iEXT WORD 

JCHECK FOR FL:L0E^ ELSE EXIT SEG 

ICHBCK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 

;%%START OF SEGMEHTtt 



3314 



034600 
034606 
034614 
034622 
034630 
034636 

034644 
034650 
034652 
034656 
034656 
034660 

034662 
034666 
034666 
034670 

034672 
034700 
03^--' 



34706 



013737 

012777 

004537 
000002 
004537 

104010 
000042 



004537 020214 



034710 
034710 

034716 



002162 002166 

002160 002166 

002166 145424 

000002 002166 

003052 145406 

177577 145404 

020456 

021276 



104010 
000032 

013737 
023737 
001404 



104462 
000007 
013727 
014410 



104006 



002232 
002170 



002170 
002166 



2$: 



MOV 
BIS 
MOV 
ADD 
MOV 
MOV 

JSR 

HRCHK 

JSR 

ESCAPE 

EMT 

• WORD 

JSR 
ESCAPE 

EMT 
.WORD 

MOV 
CMP 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

CKLOOP 
EMT 



TMPl/GDDAT 
TMPO.GDDAT 
GDDATfaRLDA 

12,GDDAT 
BUF|r§RLBA 
-129./8RLMP 

RS^LDFUNC 

R5yWTCRDY 
SEG 

CSESCAPE 
10001$-. 

RS^CHERR 
SEG 

CSESCAPE 
10001$-. 

E.DA£BDDAT 

BDDAT,GDDAT 

2$ 

7-,EM63#ERR4 

T$ERCODE 

7 

EM63 

ERR4 



C$CLP1 



;GET CYLINDER 

;GET SECTOR 

JSET DISK ADDRESS-SECTOR 

>SET EXPECTED^*^2 

;SET BUS ADDRESS 

JWORD C0UNT-SECT0R*1 WORD 

JLOAD THE FUHCTIOH IN NEXT WORD 
sWRITE CHECK 

;WAIT FOR CONTROLLER READY? 
JCHECK FOR FL:LaE^ ELSE EXIT SEG 



ICHECK CNTLR FOR ERRORS 
;CHECK FOR FLILOE, ELSE EXIT SEG 



3READ DISK ADDRESS 

JIS DISK ADDRESS CORRECT 

;yes^ branch no, report error 



;DISK ADDRESS NOT CORRECT 



assembly ROUTINE 
CZRLBB.Pll 22 

3331 034722 
(3) 034722 
JS) 034722 

ills 034724 
34730 



S 
-NOV-78 



634736 

034740 

034740 

034740 

034^ ' 

034 

034 



104005 

005237 
022737 
001233 






034744 
034744 



034744 



034744 



034762 
034762 

034764 

nm 

035000 
035002 

035004 
035012 
035020 

035032 

"35036 

35036 



104005 
104001 



035052 
035056 



004737 



MACYll 
15:28 



104010 
000200 
004537 



uun mm 



005077 
012777 
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**TEST 37** - MULTIPLE SECTOR WRITE CHECK 



SEQ 0113 







10001$: 


EHDSEG 
EMT 


C$ESEG 




;%%END OF SEGMENT%% 


'olllM 


002160 


10000$: 

.SBTTL 
BGNTST 


INC 
CMP 
BNE 
ENDSEG 

EMT 

EMT 
**TEST 


THPO 
|46,TMP0 

C$ESEG 

CSETST 
38** - FORCE 


DCK 


"'°' ''° fiSiND OF SEGHEHTtt 

;**END OF TEST** 

WITH WRITE CHECK 

;**START OF TEST** 



021356 



003052 
000200 
125252 



003052 
177600 
145222 
020456 

021276 



020214 



003052 



C<f IDC 

T :******* «f ************************************** ************** 

s^QRCE A DCK WITH WRITE CHECK. THIS IS DONE BY WRITING 
JaIeCTOR AND CHANGING A WORD IN MEMORY BEFORE WRITE CHECK 
;IS ISSUED.. 
!|45l***** 



145232 
145230 



*********** 



299$; 



JSR 
CKERFG 

EMT 
.WORD 

BGNSEG 

EMT 

MOV 
MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 



****************************************** 
PCHDHOME 



CSEXIT 
L10073- 



C$BSEG 



;HEADS OVER TRACK 
;HEADS go HOME OKAY 



|BUF,R0 

P52§2J(R0)* 

299$ 

tBUF^gRLBA 
i-128./@RLMP 

Irlda 

R5/LDFUHC 

R5#WTCRDY 

SEG 

CSESCAPE 

10000S-. 

R5£CHERR 

SEG 



;%%START OF SEGMEMTtt 

;SETUP AND WRITE 
;128 WORDS 
;WRITE 
I DONE?? 



;LOAD BUS ADDRESS 

JwpRD COUNT 

;CLEAR DISK ADDRESS 

;L0AD the FUNCTION IN 

;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE, ELSE EXIT S 



NEXT WORD 
EG 



JCHECK CNTLR Fi 
;CHECK FOR FL:LOE/ ELS 



IR ERRORS 

i EXIT si 



;VERIFY WRITE WITH READ BEFORE WRCHK 



145160 



CLR 

MOV 



ARLDA 

|buf,srlba 



JkSSEMBL¥ ROUtlHES 
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**?EST 38** 



1SS35 PAGE 1-84 
- rORCE DCK WITH WRITE CHECK 



3374 



0350^1 



1 

m 

3381 

liii 

3384 
3385 
3386 

m 

3389 
3390 
3391 

m 

3394 
3395 

3398 

3399 
3400 

3403 

11 



035122 
035126 
035132 
035140 

035146 
035152 
035154 
035160 
035160 
035162 

035164 
035172 
035200 
035206 
035210 
035214 
035214 

urn'. 



3406 
3407 

,111 

3409 



.50014 
004537 



000( 
004! 

im 

am 

104004 

005037 
005077 
012777 
012777 

004537 
000002 
004537 

104010 
000054 



177600 
020456 

021276 



020214 



003052 
145114 



01373 
"4273 



Q35226 
035226 
035230 
035232 
035234 

035236 

035236 
035240 
035240 
035240 
035242 
035242 
035242 



042737 
022737 
001402 
004537 

104006 

022737 
001404 



104462 
000027 
014105 
014244 



104005 
104005 
104001 



145156 



003052 145104 
177600 145102 



020456 
021276 



mm 

104000 
020214 



2160 
216- 



002,- 

002160 

002160 



104000 002160 



1$: 



8gS 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 



CLR 
CLR 
MOV 
HOV 

JSR 

WRCHK 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 

BIC 

CMP 

BEQ 

JSR 

CKLOOP 

EMT 

CMP 
BEQ 

ERRDF 
TRAP 
• WORD 
.WORD 
.WORD 



2S: 

10001$: 

10000$: 

ENDTST 
L10073: 



tllllHi'^ 



RLMP 



SEa 0114 

f 



R5#WTCRDY 

SEG 

CSESCAPE 

10000S-. 

RS^CHERR 



CSBSEG 



BUF 

iRLDA 
BUF^^RLBA 
-uS./gRLMP 

R5,LDFUNC 

R5#WTCRDV 
SEG 

CSESCAPE 
10001$-. 

,TMPO 



EMT 
EMT 



ILOAD THE FUMCTIOW IM MEXT WORD 

ICHECK FOR FLSLOE^ ELSE EXIT SEG 

ICHECK CNTLR FOR ERRORS 
;CHECK FOR FLSLOE, ELSE EXIT SEG 

;%%START OF SEGMEMT%% 



JSETTIMG SECTOR 40 OF CYL. ADDR. 
;WQRD COUNT 

JLOAD THE FONCTION IN NEXT WORD 
JWRITE CHECK 

;WAIT FOR CONTROLLER READY_ ^^^ 
>CHECK FOR FL:LaE^ ELSE EXIT SEG 



E.CS#TMPO >GET RLCS 
#l77l£TMP0 5SAVE ERROR BITS 
fBIT15!BITll/TMP0 "'■"' '"" 



R5/CHERR 
CSCLPl 



jDCK SET. 
;YES/ 



CONTINUE 



|BIT15IBIT11#TMP0 

23.#EM65^ERR0 
TSERCODE 

EM65 
ERRO 



;WHEN FORCED 



EMT C$ESEG 
ENDSKG 



CSESEG 
CSETST 



;%%END OF SEGMENT!! 
;%%END OF SEGMEMT%% 
;**END OF TEST** 



ASSEMBLY ROUTINES 
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15:28 **TEST 38** 



15:35 PAGE 1-85 
- FORCE DCK WITH WRITE CHECK 



SEQ 0115 




021356 



irsm 



.SBTTL 
BGNTST 



003052 144732 
177600 144730 
144722 
020456 

021276 



020214 



**TEST 39** 



FORCE DCK WITH WRITE CHECK INTERRUPT 
;**START OF TEST** 



?T **************************************************** *********** 

?FORCE A DCK IN INTERRUPT MODE 

?T **************************************************** *********** 



JSR PC^HDHOME 

CKERFG 

EMT CSEXIT 

.WORD L10074-. 

BGNSEG 

EMT C$BSEG 



MOV #BUF,RO 
MOV ^'~" "' 
299$: MOV „- 



m'ui] 



{R0) + 



BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 



299$ 

#BUF|-0RLBA 
1-128. /8RLMP 
gRLDA 
R5,LDFUHC 

R5,WTCRDY 

SEG 

CSESCAPE 

lOOOOS-. 

R54rCHERR 

SEG 

CSESCAPE 

lOOOOS- 



;HEADS OVER TRACK 
?HEADS GO HOME OKAY 



;%%START OF SEGHENTtt 

;SETUP AND WRITE 
;128 WORDS 
;WRITE 

;done?? 

;LOAD BUS ADDRESS 

;WQRD COUNT 

JCLEAR BISK^ADDRESS^^^^j^^ ^^ ^^^^ ^^^^ 

5?ilJcV?8ROTfe!;'gJI*g]llT SEG 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;VERIFY WRITE WITH READ BEFORE WRCHK 



144670 
003052 14 
177600 14 
020456 

021276 



020214 



144660 
- *4656 



CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 



iRLDA 
BUF#@RLBA 
-128.^§RLMP 
5,LDFDHC 

R5,WTCRDY 

SEG 

CSESCAPE 

lOOOOS-. 

R5/CHERR 

SEG 

CSESCAPE 

10000$-. 



;LOAD THE FUNCTION III NEXT WORD 

?CHECK FOR FL:LOE# ELSE EXIT SEG 

JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



ASSEMBLY ROUflHES 
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304(1052) 22-liOf-78 
**TES? 39** 



15:35 PAGE 1-86 
- FORCE OCR lilfH URIfE CHECK IMfERROPf 



SEQ 0116 



mm 



iim 



002160 



2$: 



1$: 



CSBSEG 




;t%SfARf or SEGMESf%% 



;CLEI^R IHTERRDPf OCCURAHCE fLKG 

;SETTIHG SECTOR 40 OF CYL. &DDR, 
IliORD COUNT 

iLOhD THE FUliCTIOM IN NEXT WORD 
;liRITE CHECK 
;MAIT FOR CONTROLLER READY 



TST 
BNE 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

ESCAPE 

EMT 

.WORD 



MOV 
BIC 
CMP 
BEQ 

JSR 
CKLOOP 

EMT 

CMP 

BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



3$: 
10001$: 



24.4EM66/ERRO 
TSERCOOE 

EM66 
ERRO 

SEG 

CSESCAPE 

10001$-. 



;did interrupt occur 

?YES OKAY 



;N0 INTERRUPT FROM DCK 



;CHECK FOR FLtLOE, ELSE EXIT SEG 



l-Sll 



_cs 

»i/#i#TMPO ;SAVE ERROR BITS 
|bIT15IBIT11,TMP& „2DCK_..SET. 



;get rlcs 

;SAVE ""'^ 

;dc. 

;yeS/ continue 



R5,CHERR 

C$CLP1 

#BIT15!BIT11,TMP0 

25.,EM65,ERR0 
fSERCODE 



EM65 
ERRO 



;WHEN FORtED 

;%%END OF SEGMENT%% 



ASSEMBLY ROUTINES 
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035576 104005 
035600 
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15:28 **TEST 39** - FORCE DCK WITH WRITE CHECK INTERRUPT 



03560^ 



104005 



035602 

035602 104001 



SEQ 0117 



10000$: 
ENDTST 



LI 



0074 



EMT C$ESEG 
ENDSEG 



C$ESEG 
CSETST 



;%%END OF SEGMENT%% 
;**END OF TEST** 



3498 
3499 
3500 
3501 

mi 

3505 
3506 

3508 
3509 



035604 



035604 




004737 021356 

104004 
012737 

l\m 

012720 



013700 
005400 

Hill 

004537 

io^gio 
000200 

004537 

104010 
000170 



000001 002162 
052S25 



002162 

144364 
003052 
144350 
020456 

021276 



020214 



144352 



-SBTTL **TEST 40** - CHECK ZERO FILL OH WRITE WITH WRITE CHECK 
BGNTST >**START OF TEST** 

STARS 

JMHEN WRITING PARTIAL SECTORS (LESS THAN 128 WORDS) THE 

;CONTROLLER WILL FILL IN THE REMAINING PORTION OF 

;THE SECTOR WITH ZERO WORDS. QHECK THIS FEATU 

3 WITH WORD COUNTS FROM 1 TO '" 



THIS FEATURE CAN BE WRITE CHECKED 



■ ***#*««***««**« ft «*«**«««*««*** «*ft««r«ft«««*ftft««rj^ 



lrft*« ****** «*«**«« 



PC/HDHOME 



33$: 
3$: 



JSR 

CKERFG 

EMT CSEXIT 

.WORD L10075-- 

BGNSEG 
EMT 



MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

NEG 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT 
.WORD 



;HEADS OVER TRACK 
;HEADS 60 HOME OKAY 



CSBSEG 

il#TMPl 
BUF^RO 
5252§,(R0)4 



THP1,R0 

RO 

RO^gRLMP 

#BUF,§RLBA 

PLDA 

R5,LDFUNC 

R5/WTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5#CHERR 
SEG 



CSESCAPE 

10000S-. 

;VERIFY WRITE WITH READ BEFORE 



;%%START OF SEGMENT%% 



;START WITH 1 WORD WRITE 
;WRITE BUFFER WITH 52525, WE'LL 
;WRITE 128 WORDS ALL THOUGH WE'RE 
;ONLY GOING TO TRANSFER < 128 
>DONE WITH BUFFER? 
}HQm GO BACK 

;get transfer word count 
; negate for rlmp 
;store word count away 
>set up rlba 

;load the function in next word 

JWRITE IT 

;WAIT FOR WRITE TO FINISH 

;CHECK FOR FL:L0E/ ELSE EXIT SEG 



SCHECK CNTLR FOR ERRORS 
?CHECK FOR FL:L0E/ ELSE EXIT SEG 
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144300 
020456 

021276 



020214 



144230 
1^4222 
020456 



020214 
002124 



002162 
002162 



144306 



144236 



000200 



104005 



10$: 



99$: 
10001$: 



10000$! 



CLR 

MOV 

MOV 

NEG 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

• WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 

MOV 

MOV 

NEG 

MOV 

CLR 

JSR 

WRCHK 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

TST 

BNE 

ESCAPE 

EMT 

.WORD 

BR 

CKLOOP 

EMT 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

ENDSEG 

EMT 

INC 

CMP 
BNE 

ENDSEG 

EMT 



35 PAGE 1-88 
ECK ZERO FILL 

gRLDA 
|bUF,0RLBA 

ImpiISo 



RO^^I 
R5/L 



iRLMP 
DFUNC 



R5^WTCRDY 
SEG 



CHERR 



R5|-CHEI 
SEG 

CSBSEG 
IBUF^gRLBA 

tmpiJro 

RO 
RO^fRLMP 

Is/LDFUNC 

R5.WTCRDV 
SEG 

CSESCAPE 
10001S-. 

R5, CHERR 

T.CRC 

8$ 

SEG 

CSESCAPE 

CSCLPl 

37.,EM64,ERR14 

TSERCODE 

EM64 
ERR14 



C$ESEG 

TMPl 
TMP1/#128. 



OR WRITE WITH WRITS CHECK 



;L0AD the FONCTION in next WORD 
JCHECK FOR FL:LOE# ELSE EXIT SEG 



ICHECK CNTLR FOR ERRORS 
JCHECK FOR FL:LOE, ELSE EXIT SEG 



;%%START OF SEGMENT%% 
JSET UP TO READ 



SEQ 0118 



;SECTOR 



;L0AD THE FUNCTION IN NEXT WORD 



;WAIT TIL WE FINISH THE WRCHK 
;CHECK FOR FL:L0E, ELSE EXIT SEG 



iCHECK CNTLR FOR ERRORS 
;HAS ERROR A DCK?? 
;YES^ give MOR INFO 
;CHECK FOR FL!LOE, ELSE EXIT SEG 



JSKIP AROUND 

;YES, CHECK FOR LOOP FIRST 



;EXIT TEST 

;%%END OF SEGMENT!! 



;!%END OF SEGMENT!! 



■^ 



C$ESEG 



ASSEMBLY ROUTINES 
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3571 036114 

(3) 036114 

(3) 036114 104001 
3572 
3573 

3574 036116 
3575 
3576 036116 



036116 
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15:35 PAGE 1-89 
• CHECK ZERO FILL ON WRITE WITH WRITE CHECK 

?**END OF TEST** 



SEQ 0119 



EMT 
**TEST 



CSETST 
41^ 



EXTENDED CHECK OF WRITE CHECK FUNCTION 
;**START OF TEST** 



EHDTST 
L10075: 

.SBTTL 

BGNTST 

STARS 

. . *************************************************************** 

;6hECK of WRITE CHECK LOGIC UNDER FLAG MODE 

;THIS test is DONE WITH ALL BIT PATTERNS 

; WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM 

JMEMORY (BUF). WE CHECK THAT MO ERRORS OCCUR. 

STARS 

. . *************************************************************** 



3585 



036116 004737 021356 

036130 104032 

036132 000246 

036134 012703 002504 



umi 



utm 



036232 



nil 



104004 


oio52- 

005301 
001375 

nm 

ooooii 

004537 

104010 
000160 
004537 

104010 
000150 

104004 



005077 
-2777 



003052 
000200 



144044 
020456 

021276 



3614 036252 004537 



020214 



00305? 144000 
177600 143776 
020456 



JSR 

CKERFG 
EMT 
.WORD 

MOV 

BGNSEG 
EMT 



298$: MOV 
MOV 
MOV 

299$: MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 

;VERIFY WRITE 

CLR 
MOV 
MOV 
JSR 



PCHDHOME 

CSEXIT 
L10076-. 

#HDRTAB,R3 



;HEADS OVER TRACK 

;heads go home okay 



CSBSEG 

PUF/RO 
|l28.,Rl 

R2/(R0)4- 

Rl 

299$ 

PUF,8RLBA 
|-128:,§RLMP 
gRLDA 
R5/LDFUHC 

R5£WTCRDY 

SEG 

CSESCAPE 

10000S-. 

R5#CHERR 

SEG 

CSESCAPE 

10000$-. 

CSBSEG 

WITH READ BEFORE WRCHK 

flRLDA 

|BUF#@RLBA 
1-128. ,gRLMP 
R5^LDFU»C 



;%%START OF SEGMENT!! 



;SETUP AND WRITE 
n28 WORDS 

?WRITE 
>DONE?? 

;LQAD BUS ADDRESS 

;WORD COUNT 

;CLEAR DISK ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

?WAIT FOR CONTROLLER READY 
JCHECK FOR FL:LOE, ELSE EXIT SEG 



JCHECK CNTLR FOR ERRORS 
JCHECK FOR FL:L0E/ ELSE EXIT SEG 

;%!START OF SEGMENT!! 



JLOAD THE FUNCTION IN NEXT WORD 
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15:35 PAGE 1-90 
- EXTENDED CHECK OF 



036256 

036270 
036274 



nil ui 



000014 
004537 

urn 

004537 

mm 

104004 
005077 

mm 

000002 



021276 



020214 



143740 
020456 



004537 021276 



104010 
000024 



3$: 



14 



ilW2 



READ 

JSR 

ESCAPE. 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 



CLR 
MOV 
MOV 
JSR 
WRCHK 

JSR 

ESCAPE 
EMT 
.WORD 



R5<-WTCRD¥ 
SEG 

RSeCHERR 

SEG 

5IJSCAPE 



001$- 



CSBSEG 

RLDA 

5,LDPUNC 

R5|-tfTCRDY 
SEG 

CSESCAPE 
10002$-. 



WRITE CHECK FDNCTIOM 

;CHECK FOR FL:LOE/ ELSE EXIT SEG 

ICHECK CMTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 

;%%START OF SEGMENTS 



;IIORD COUMT 
;BUS ADDRESS 

JLOAD THE FUNCTION IN NEXT WORD 
?«HITE CHECK 

;HAIT FOR CONTROLLER READY, 
;CHECK FOR FL:L0E, ELSE EXIT SEG 



036340 
036344 
036350 

036352 
036352 
036354 
036356 
036360 

036362 

036362 
036362 
036362 
036364 
036364 
036364 

036366 
036370 
036374 

036376 
036376 
036376 
036400 
036400 
036400 



004537 
005737 
001404 



i8o6fi 

015216 
014220 



104005 



005723 
020327 
001262 



104005 
104001 



020214 
002124 



002660 



JSR 
TST 

BEQ 

KRRHRD 

TRAP 

.WORD 

.WORD 

.WORD 



4$: 

10002$: 

10001$: 



EMT 
ENDSEG 



10000$: 

ENDTST 
L10076: 



TST 
CMP 
BNE 

ENDSEG 

EMT 



R5/CHERR 

T.CRC 

4$ 

410.,ERR15/EM70 
TSERCODE 

ERR15 
EM70 



CSESEG 
C$ESEG 
b,iHDREND 



jCHECK CNTLR for ERRORS 
;WHITE CHECK ERROR?? 
;N0 



«3« 

298 



{"D 



C$ESEG 
C$ETST 



;%%END OF SEGMENT%% 
?%%END OF SEGMENT%% 



;%%END OF SEGMENTtI 
;**END OF TEST** 
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15:28 **TEST 41** - EXTENDED CHECK OF WRITE CHECK FUNCTION 



SEQ 0121 



3652 
3653 
3654 
3655 
3656 
3657 

3658 

3660 
3661 
3662 

ml 

3665 
3666 

M 

3668 
3669 
3670 

m 

3673 
3674 



3678 
3679 
3680 
3681 
"82 



368_ 
3683 
3684 
3685 
3686 

M\ 

3688 



3692 
3693 
3694 
3695 
3696 
3697 



036402 
036402 



036402 
036406 
036414 
036416 



452 012 
460 012 
466 005 



036424 
036424 

036426 
036432 
036436 
036440 
036444 
036446 
036450 

036452 
036460 
036:" 
0364 
0364 _ 
"6500 
-6504 

mt 

036510 
036514 
036514 
036516 
036520 
036520 



036522 
036526 
036534 
036542 
036546 



3685 03650 

3686 03650 



004737 021356 



104032 
000252 



036420 012703 002504 



104004 
012700 

005301 



01130_ 
Q5270g 

005301 
0013" 

012777 
012777 
005077 
004537 
000012 
004537 



00 



104010 
000150 



004537 
000014 



003052 
000200 



003052 
177600 
143554 
020456 

021276 



020214 



143520 



143564 
143562 



umi 



.SBTTL **TEST 42** 
BGNTST 



EXTENDED CHECK OF WRITE CHECK FUNCTION 
;**START OF TEST** 



STARS 
..**********************************•**********«***■***«********** 

;6hECK OF WRITE CHECK LOGIC UNDER FLAG MODE 

;TEST IS DONE WITH ALL BIT PATTERNS 

? WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM 

JMEMORY (BUF). WE CHECK THAT NO ERRORS OCCUR. 

oTARS 



298$: 



299$: 



JSR 

CKERFG 
EMT 
.WORD 

MOV 

BGNSEG 

EMT 

MOV 
MOV 
MOV 
BIS 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 



;VERIFY WRITE 

CLR 
MOV 
MOV 
JSR 
READ 



PCHDHOME 

CSEXIT 
L10077-. 

#HDRTAB/R3 

CSBSEG 
tfBUF^RO 

|l28.-rRl 

(R3)#R2 
#BIT15,R2 

299$ 

#BUF<@RLBA 
1-128. ,eRLMP 
gRLOA 
R5,LDFUNC 

R5^WTCRDY 
SEG 

R5,CHERR 
SEG 

C$BSEG 

WITH READ BEFORE 

gRLDA 

|bUFx@RLBA 
|-12B.,9RLMP 
ftS/LDFUfiC 



?HEADS OVER TRACK 
JHEADS GO HOME OKAY 



;%%START OF SEGMENT%% 



;SETUP AND WRITE 
;128 WORDS 
;GET PATTERN 



;done?? 

;L0AD BUS ADDRESS 

;WORD COUNT 

;CLEAR DISK ADDRESS 

;L0AD the FUNCTION IN NEXT WORD 

;WAIT FOR CONTROLLER READY 
JCHECK FOR FL:L0E# ELSE EXIT SEG 

JCHECK CNTLR FOR ERRORS 
jCHECK FOR FL:LOE/ ELSE EXIT SEG 

;t%START OF SEGMENT%% 

WRCHK 

;L0AD THE FUNCTION IN NEXT WORD 



m $ 
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**fEST 42** - BXfEMDED CHECK OF WRITE CHECK FUUCflOM 



i6?8 



3715 



036630 
036634 
036640 

036642 
036642 
036644 
036646 
036650 

036652 



004537 021276 



56 000076 
60 004537 



104004 



020214 



004537 
005737 
001404 



1044§3 
000632 
015216 
014220 



020214 
002124 



SEQ 0122 




3S: 



4$: 



JSR R5£ilTCRDV 

ESCAPE SEG 

EMt CSESCAPE 

.WORD lOOOlS-. 

JSR R5,CHERR 

ESCAPE SEG 

EMT CSESCAPE 



.MORD 



BGHSEG 
EMT 



CLR 
MOV 
MOW 
JSR 
WRCHK 



JSR 
ESC 
EMT 
.WORD 



JSR 
TST 
BEQ 



10001$-. 
C$BSEG 



*!i§J 



_ ^8RLMP 
BOr^gRLBA 
5/LDFUHC 



RS^WTCRDY 

ESCAPE 
002$-. 



R3# 

ESCAPE SEG 
EMT__ CSESCAPE 



R5,CHERR 

T.CRC 

4S 



;CHECK FOR FLSLOE/ ELSE EXIT SEG 

SCHICK C8TLR FOR ERRORS 
;CHECK FOR FL:L0E, ELSE EXIT SEG 



;%%START OF SEGMEHTlt 



;H0RD COUNT 
;BUS ADDRESS 



;HRITE CHECK 



;LOAD THE FUNCTION IN NEXT WORD 
HE"" 



?WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



ERRHRD 410-£ERR15^EM70 

TRAP TSERCODE 

.WORD 410 

.WORD ERR15 

.WORD EM70 



;CHECK CNTLR FOR ERRORS 



036652 
036655 
036652 
036654 
036654 
036654 



3728 
;729 


036656 
036660 


005723 
020327 


036664 


001260 


3731 






'W 


036666 




036666 






036666 


104005 


373; 


036670 




3ili 


036670 
036670 


104001 



002660 



10002$: 
10001$: 



10000$! 



ENDTST 
L10077: 



EMT 
ENDSEG 



TST 
CMP 

BHE 

ENDSEG 

EMT 



C$ESEG 



C$ESEG 

(R3)* 

R3£fHDREHD 
298$ 



C$ESEG 



MT CSETST 
*TEST 43** 



?%%END OF SEGMEHT%% 
;%%END OF SEGMENT%% 



;%%END OF SEGMENT%% 
;**END OF TEST** 
READ WITHOUT HEADER COMPARE FUNCTION 
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- READ WITHOUT HEADER COMPARE FUNCTION 



SEQ 0123 



3739 



036672 
036672 



STARS 

JfEST THAT READ WITHOUT HEADER VERIFICATION WORKS. THIS FUNCTION SHOULD 

;READ AT THE NEXT SECTOR ENCOUNTERED. SET THE RLDA TO 

;AND issue THE FUNCTION IN FLAG MODE. UPON COMPLETION CHECK 

JFOR ERRORS 

STARS 

«.********«****************************«************************«; 

BGNTST ;**START OF TEST** 



036672 004737 021356 



036706 

mm 



104032 
000052 



104004 



JSR 

CKERFG 

EMT CSEXIT 

.WORD LIOIOO- 

BGNSEG 
EMT 



PC/HDHOME 



C$BSEG 



;HEADS OVER TRACK 
;H£ADS go HOME OKAY 



;%%START OF SEGMENT%% 



3764 



3774 



Hm 




25? 
,_ 756 
036760 



03675 
03675 
03675 



036760 
036760 



036762 
036762 



036762 



036762 
036766 

mm 



-*4537 020456 

-0016 
004537 021276 



104005 
104001 



14333 
14331 
14331 



04010 
00006 



036752 004537 020214 



004737 021356 

104032 
000114 



10000$; 



ENDTST 
LlOlOO: 



MOV 

MOV 

MOV 

JSR 

RDNHD 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ENDSEG 
EMT 

EMT 
**TEST 



RLMP 
BA 



!BUF,gRLB 
-l/gRLDA 
5/LDFUNC 

R5£WTCRDY 
SEG 

CSESCAPE 
10000S-. 

R5/CHERR 



CSESEG 

CSETST 
44** - READ 



.SBTTL 

BGNTST 

STARS 

;fEST THAT READ WITHOUT HEAD 

JINTERRUPT MODE. 

STARS 

•• ************************** 



;SET UP WORD COUNT 
JSETUP BUS ADDRESS 
;HEADER SHOULDN'T MATTER 

5l0ad the function in next word 
;read data without header verify 
5wait for it to finish 

)CHECK FOR FL:L0E/ ELSE EXIT SEG 

;check cntlr for errors 
;%%end of segment%% 



;**end of test** 



WITHOUT HEADER COMPARE FUNCTION INTERRUPT 
;**START OF TEST** 



************************************* 
ER VERIFICATION WORKS IN 



************************************* 



JSR 
CKERFG 



PC/HDHOME 



EMT CSEXIT 
.WORD LIOIOI- 



;heads over track 
;heads go home okay 




MACYll 
15:28 



301^(1052) 22-MOV 
**fEST 4 



000000 
020456 
021276 
000340 



002144 



104462 
000050 



104010 
000006 



004537 020214 



104005 



104001 



143222 
143216 



is: 



10000$: 



ENDTSt 
LlOlOl: 



.SBTTL 
BGNTST 



4** -^ReId MITHOU?"hEADER compare FOiCTIOB IHtERRUPT 
|||SEG 



SEQ 0124 



Sis? • 

MOV 

MOV 

SEfPRI 

MOV 

EMT 

JSR K3/ 

RONHDIINTEN 



C$BSEG 



^ttSTART OF SEGMEMTlt 






IMTIRRUPT. MCUR*HCE FLAG 



COUMT ^ 
- ADDRESS 



OME SECTOR 



liilofBilNR 

;DISK ADDRESS IS A DOM'T CARE 



PRIOO/RO 
*-pRI 
LDFUNC 



JSI 

SEfPRI 

MOV 

EMt 

ESCAPE 

EMt 

.WORD 

TST 
BNE 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

ESCAPE 

EMT 

.WORD 

JSR 

ENDSEG 

EMT 

EMT 



R5,WTCRDY 
IPRI07 



tPRI07 

IPRIO? 

CSSPRl 

SEG 

CSESCAPE 

10000$-. 

INTFLG 
IS 

40.,EM40,ERR0 
TSERCOOE 

EM4Q 

ERRO 

SEG 

CSESCAPE 

10000$-. 

RS^CHERR 



CSESEG 



3L0AD THE FUMCTIOM IN NEXT WORD 
> IHTERRUPT ENABLED 
JWAIT FOR INTERRUPT 



;CHECK FOR FL:LOE, ELSE EXIT SEG 



;DID it INTERRUPT 

;IF INTERRUPT GO TO IS 

;N0 INTERRUPT 



jCHECK FOR FL:L0E^ ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;%%END OF SEGMENT%% 

;**END OF TEST** 



CSETST 



**TEST 45** - CHECK RD W/O HDR 



CMP ACTUALLY READS 
;**START OF TEST** 



ft****** ********* 



..************************************************* 

:6hECK that the READ H/O HDR CMP FUNCTION ACTUALLY READS (INTO MEMORY) 

•ME WILL WRITE A PATTERN INTO MEMORY^AND THEN ISSUE 

JAIREAdSo OVERLAY THAT PATTERN. — ' '^»- ^^^^ 



AFTER THE READ 




;NOT CHANGED WE REPORT AN ERROR 
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15:35 PAGE 1-95 
- CHECK RD W/O HDR CMP ACTUALLY READS 



SEQ 0125 



rARS 
. *** 



*********************************************** 



*****»****«*« 



037134 
037142 
037146 
037152 



004737 

104032 
000160 

104004 

012737 
005037 
012700 
012701 



0373 
032 



240 



262 



220C 

372C 
5301 

m 



mil 



J5 s 



J530 

001"" 

012 

012. . 

012777 

012737 



04537 
-00016 
004537 



021356 



024350 
002162 
003052 
000200 
002160 



li I 



000050 
177600 
003052 
003052 

020456 

021276 



04010 
00054 



002160 



143052 
143046 
143034 
002166 



004537 020214 

104010 
000044 

ml 



null 

05237 
05137 
00724 



037276 

um mm 



0446| 



003052 
002160 



is: 
2S: 



002162 



002162 
002160 



45: 



037306 



5$: 



6S: 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 
EMT 

MOV 
CLR 
MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
MOV 
MOV 
MOV 

JSR 

RDNHD 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT 
.WORD 

MOV 
CMP 
BNE 



TST 
BNE 

INC 
COM 
BR 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



PC/HDHOME 



lUl-. 



CSBSEG 

#24350, TMPO 

TMPl 

POF/RO 

1128. «R1, 

TMPO/tRO)* 

Rl 

i40.f@RLDA 

|-12Bw»RLMP 

|BUF#eRLBA 

|buf,gddat 

R5, LDFUNC 

R5£WTCRDY 
SEG 

CSESCAPE 
10000S-. 

R5#CHERR 
SEG 

CSESCAPE 
10000$-. 

#BUF/R2 
(R2)4-,TMP0 



TMPl 
5S 

TMPl 
TMPO 
IS 

20.#EM55,ERR9 
TSERCODE 

EM55 
ERR9 



;HEADS OVER TRACK 
?HEADS GO HOME OKAY 



;%%START OF SEGMENT%% 

;SET PATTERN TO WRITE 
;CLEAR PASS INDICATOR 
;SET UP BUFFER BEGINNING 

?WRITE BUFFER 
;DONE?? 

;no# go back 

;l0ad disk address to nonsense 

jset word count 

;lqad bus address 

;F0R error PRINT 

LOAD THE FUNCTION IM NEXT WORD 



6LiUMU inc. 
^ HDR CMP, „ ^ 
>WAIT FOR CONTROLLER R 
;CHECK FOR FL:LOE/ ELS 



;ady 

! EXIT SEG 



JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



JSET TO START COMPARING DATA 
;DID DATA CHANGE? 
;YES, CHECK FOR END 

IDATA DIDN'T CHANGE, CHECK 
;IF 1ST OR 2ND TIME? 
;2ND-REPQRT IST-TRY AGAIN 

;INC PASS COUNT 
;COMPLIMEHT PATTERN 
;G0 DO IT AGAIN 
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15:28 **TEST 45** - CHECK RD H/0 HDR CMP ACTUALLY READS 



SEQ 0126 



m^ 



03751O 
037310 

037312 
037312 



3870 037312 



104005 
104001 



10000$: 



ENOSEG 
EMT 



CSESEG 



?t%EilO OF SEGMENTtt 
;**E»D OF TEST** 



EMf CSETSf 

**TEST 46** - CHECK RLBA IMCREHEMT WITH RD H/0 HDR CMP 

l**STARf OF TEST** 



.SBTTL 
BGMTST 
STARS 

.. ****ft* ft «r****««ft«««ftftft**«*«r«r*****«ft ****«***«*****•*«**«*«******* 

;CHECK THAT THE RLBA HILL INCREMENT WITH THE READ H/0 HDR CMP 
;THE RLBA SHOULD CONTAIN "BOF ♦256." AFTER A FULL SECTOR 

;read. 

STARS 

• ^ «* Sftft ft «rft«r *««»«**««( ft «««*««« «««*«««» «***«*«« ft«*ft«t#««*« ««««*«**««« 



037312 
17316 

m 

037330 
037330 

037332 
037340 
037346 
037354 
037362 

037370 

nik 

037402 



004737 
000120 

104004 

012777 
012777 

mm 

062737 





0.„ 

0045 



537 



mm 



037414 
037416 
037424 
037432 

37434 

037440 
037442 



104010 
00003' 



373? 
3737 
1404 



mu i8 



4462 
-.0025 
013310 
014410 



000050 
003052 

000400 
020456 
021276 



B89 037406 004537 020214 



mm 

002166 



002230 002170 
002170 002166 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
MOV 
ADO 

JSR 

RDNHD 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 

CMP 

BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



PCHDHOME 

mui-. 



CSBSEG 

#40./fRLDA 

|BUFir§RL6A 

i-128.^ftRLMP 

puf/GDDAT 

#256.,GDDAT 

R5,LDFUNC 

R5,WTCRDY 
SEG 

R5#CHERR 

SEG 

CSESCAPE 

10000S-. 

E.BA#BDDAT 

BDDAT^GDDAT 

1$ 

21.£EM53/ERR4 
TSERCODE 

EM53 
ERR4 



APE 
$-. 



?HEADS OVER TRACK 
;HEADS GO HOME OKAY 



;%%START OF SEGMENTtt 



;SET UP BUS ADDRESS 
;WORD COUNT 

;FORM EXPECTED BUS ADDRESS 
;AFTER READ 



;L0AD THE FUNCTION IN NEXT WORD 
;READ H/0 HDR CMP 
;WAIT FOR CONTROLLER READY 
JCHECK FOR FL:LOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;read 'rlba' for present address 
;did 'ba* increment properly? 
jyes/ continue 



assembly ROUTINES 
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037444 



MACYll 
15328 
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**TEST 46** - CHECK RLBA INCREMENT WITH RD H/0 HDR CMP 



037444 
037444 
-'7444 
7446 



0374 

0324 



J46 



037446 104001 



SEQ 0127 



1$: 



10000$: 



ENOTST 
L10103: 



C$ESEG 
C$ETST 



;%%END OF SEGMENTtt 
;**END OF TEST** 



037450 
037450 



037450 
03 



7454 
62 
64 



'olW 



037466 
037466 



004737 

hum 

104004 



.SBTTL 
BGNTST 



**TEST 47** 



CHECK RLDA DOES INCREMENT WITH RD H/0 HDR CMP 
;**START OF TEST** 



STARS 
. ****** ft ft ******** ftftftftftftftftftftftftftft ft ft ftft«***«*ftftftft*****ftftftft«ft**Aft««ft* 



;6hECK THAT THE RLDA DOES INCREMENT BY ONE AFTER A 

;FULL SECTOR READ W/0 HDR CMP 

JAFTER THE READ THE RLDA SHOULD STILL BE THE INITIAL RLDA 

. . ************** ft* ************************ ftftftftftftftftft ft *ftftftftftftft*«ft ft ft 



♦ 1 



-.) 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 
EMT 



PCHDHOME 



CSEXIT 
L10104- 



CSBSEG 



;heads over track 
;heads go home okay 



;%tSTART OF SEGMENTtt 



m 



037470 
037476 
037504 
037510 
037516 



'-Hi 



0^ _ 
0375 
0325 
03 



037540 

nm 

037546 
037550 

037552 
037560 



000030 

013737 
023737 



005237 
012777 
012777 

000016 
004537 

000040 



004537 020214 



000050 

177600 
003052 

020456 

021276 



002232 
002166 



002166 
142542 

142532 
142520 



002170 
002170 



MOV 
MOV 
INC 
MOV 
MOV 

JSR 

RDNHD 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT 
.WORD 

MOV 

CMP 



#40.,GDDAT 

GDDAT,@RLDA 

GDDAT 

#-128.#»RLMP 

iBUF,@RLBA 

R5,LDFUNC 

R5irWTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5|rCHERR 
SEG 

CSESCAPE 
10000$-. 

E.DA,BDDAT 
GDDAT^BDDAT 



;da to nonsense 
;setup disk address 



;WORD COUNT 
;SETUP BUS ADDRESS 



JLOAD THE FUNCTION IN NEXT WORD 
Ij^ 



;read without header compare 
;hait for controller ready 
;check for fliloe^ else exit seg 



iCHECK CNTLR FOR ERRORS 

;CHECK FOR FL:L0E, ELSE EXIT SEG 



;read disk address 

;did sector increment properly 



flS| 
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CZRLBB.Pll 22-HOY-78 15:28 **tESf 47** - CHECK RLDA DOES IMCREMEif WITH RD M/0 HDR CMP 



SEQ 0128 



037566 001404 

037570 
037670 



5717? 

0375?6 

037600 

037600 
037600 
037600 

w4 

037602 



104462 
000026 
013400 
014410 



104005 
104001 



BEQ 

m' 

.WORD 
-HORD 
• HORD 



is: 
10000$: 



ENDTST 
L10104: 



EMT 



EMT 



1$ 



2.jrEMS4,ERR4 

Iercode 



EM54 
ERR4 



C$ESEG 
CSETST 



;YES, BRANCH MQ, REPORf ERROR 



?%%EIID OF SEGMEMT%% 
;**END OF TEST** 



037604 

037604 

037604 000025 



BGHMOD HRDPRM 



037606 
037606 



037610 
037612 
037614 
037614 
037616 
037620 
037622 
037624 
037624 
037626 
037630 
037632 
037634 
037634 
03J'-- 

03^642 
037644 



037660 
037660 



037660 
000001 

000031 
037665 
160000 

nme 

037712 
000000 
000776 

002032 

037701 

00034" 

00000 

00000 

tmi 

03400 



B6NHRD 

•WORD L10105-LSHARD/2 



L10105: 



GPRML 
.MORD 
.WORD 
.WORD 
GPRMA 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMA 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

ENDHRD 
.EVEN 



£^nP|'CNTa#YES 

TSCODE 

CNTYPE 

CSRMSG,CSR,0^ 160000, 177776/ YES 

T5C0DE 

CSRMSG 

TSLOLIM 

TSHILIM 

VECMSG/VECT/0,0/776/YES 

TSCODE 

VECMSG 

TSLOLIM 

TSHILIM 

BRMSG/PRIOR/ 0,340, 0,7/ YES 

TSCODE 

BRMSG 

340 

TSLOLIM 

TSHILIM 

DRMSG,DRBT,0, 03400,0,7, YES 

TSCODE 

DRMSG 

03400 

TSLOLIM 

TSHILIM 
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3964 
3965 



3966 



037660 

037665 

037'"" 

037 

037 _ 

037706 



37701 
-37706 

um 

037721 
037726 

037730 



04612 



\E 



042104 
000 
102 

042526 

104 

000 

037730 



MACYll 30A(1052) 22-N0V-78 
**TEST 47** 



030461 
051525 
042522 

020122 
000114 
052103 

044522 



15:35 PAGE 1-99 
■ CHECK RLDA DOES INCREMEHT WITH RD S/0 HDR CMP 



SEQ 0129 



000 
040440 
051523 

042514 

051117 

042526 



CNTYPE: 
CSRMSG: 



BRMSG: 
VECMSG: 
DRMSG: 
.EVEN 



.ASCIZ 
.ASCIZ 



.ASCIZ 
.ASCIZ 
.ASCIZ 



/RLll/ 

/BUS ADDRESS/ 



/BR LEVEL/ 

/VECTOR/ 

/DRIVE/ 



037730 

037730 
037730 

037732 
037732 

urn 

037740 
037740 
037742 

037744 
037746 
937750 
037752 
037754 
037754 

mnt 

037762 
037762 

mi 

037770 

tim 

037774 
037776 
040000 
040002 
040004 



BGNMOD SFTPRM 



000025 



000130 
040004 
000001 

006044 

001052 

mm 

002130 
30 

003130 

mi 

006044 
004052 



IS: 



BGNSFT 

.WORD L10106-LSSOFT/2 



2$: 



GPRML 
.WORD 
.WORD 
.WORD 
XFERF 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
XFERF 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



DMSG<rDLT,l,YES 

TSCODE 

DMSG 

1 

TSCODE 

EMSG^ELT,D, 177777, 0,177777, YES 

TSCODE 

EMSG 

177777 

TSLOLIM 

TSHILIM 

SMSG|rSIZE,l,YES 

TSCODE 

SMSG 

1 

CMSG£0MPCK,1,YES 

TSCODE 

CMSG 

2$ 

TSCODE 

LMSG^DLMT, 0,177777,1, 128., YES 

TSCODE 

LMSG 

177777 

TSLOLIM 

TSHILIM 



040004 
040004 
040004 



051104 050117 047440 



L10106: 

dmsg: 



ENDSFT 
.EVEN 



.ASCIZ /DROP OH ERROR LIMIT/ 



ISSBMSLf ROUTIiES 
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15S28 **fESf 47** - CHECK RLDA DOES INCREMEMT MIfH RD ii/0 HDR CMP 




047524 



SEQ 0130 



:;u!i iimi 



m mi 




044523 SHSG: 
CNSG: 



•ASCIZ /AOTOSIZE/. 

•&SCIZ /COMPARE D&TI OM DCK/ 



.ISCIZ /# OF HOROS IH ERROR REPORTED/ 



emsg: 



.hsciz /error limit/ 
endmod 



.=40514 

;AREA reserved AS PATCH AREA FOR DIAGNOSTICS. 

;. =40514 MAS SELECTED AS "LASTAD" TO PROVIDE APT TO LSI-11 COMPATIBILITY. 
;BIT 7 OF "LASTAD" MOST BE CLEARED TO ACHIEVE A VALID MAILBOX ADDRESS 
;WHEN RUHNING ON THE LSI-11 UNDER APT. 

LASTAD 

.EVEN 
l$last:: 



BLY ROUTINES 
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09:52 DIAGNOSTIC SUPERVISOR — LOW CORE SET 



UP 



SEQ 0131 



.SBTTL DIAGNOSTIC SUPERVISOR -- LOW CORE SET^OP^^^^ 

.WORD ;SPACE FOR USER POOL POINTER 

.WORD ;SIZE 

.WORD ;CHECKSUM (NOT CURRENTLY USED) 

.WORD ;SIZE OF H.W. PTAB. ALLOCATION 

END.SUPV=.+2 

-END 200 



■■I 



*1IIIP^ 
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ABOFLA 
ABOPAS 
ABO.FH 
AFREG 



BIT03 



mm 

007122 
000010 
0453|6 
045332 
045344 
045352 
045366 
045376 

inm 

002154 
002252 

hm 

007130 
042514 
057770 
000001 

xm 

000004 
000010 
000020 
000040 
OOOIOO 

nm 

OOIOOQ 
000002 



BIT14 = 
BIT15 = 



000100 
000200 
000400 



BIT9 = 

BLD.HU 

BLOCK 

BPRIOR 

BRMSG 

BUF 

BVEC 

BSAAB 

bIaaf 

B.BA 

B.CS 

B.DA 

B.MP 

CALBCC 

CALLPC= 

CALLPS= 

CALLSPs: 

CALLTC= 

CAL.CL 

CAL.tl 

CDCNT 



001 



m 



04710: 
04075 . 
066204 

066610 



067612 
041012 



06774 



045562 



CQHTIM 
CRDY 
CRLF 
CRflM 
CSR = 
CSRMSG 
CORR.S 
CURR.t 
CYLMSK 
CSAAD 
"|AAE 
SAAK 
SAAL 
SABRT= 
SADR = 
SAU = 
SBRK = 
SBSEG= 
SBSUB= 
|BUFF= 
SCEFG= 



-Ul 



mi 



DS2 = 

DS3 = 

DUNIT- 

DVC.FT 

DWORD 

D§AAG 

DSAAH 

D$AAI 

DSAAJ 

DSAAK 



054764 



DSAAL 

DSAAM 

BF.CONs 

EF.NEUs 

EF.PKRs 

EF.RESs 

EF.SfA= 



EF04 
EF05 



057572 

mm 



EF06 
~F07 



3 = 



EMT.TR 
EM 



EMIOO 



EM22 
EM23 
EM24 
EM25 
EM26 

im 

EM31 

EM32 

EM33 

EM34 

EM35 

EM36 

EM4 

EM40 

EM41 



041044 



012225 
012270 



S&Q 0132 
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EM42 

EM43 

EM44 

EM45 

EM47 

EM5 

EM50 

EM51 

EM52 

EM53 

EM54 

EM55 

EM56 

EM57 

EM6 

EM60 



012654 
012723 
012767 
013024 
013056 
010646 
013105 
013145 

mm 

013400 
013230 




014456 
014514 
014556 
014564 
014636 
053106 
040520 
002230 
002226 
002232 

002236 
002240 
060640 
000204 

040560 
040562 
064012 
045546 
063760 
045506 

061716 
015606 
016415 
016550 
016672 
016241 
016723 
"5645 
-_5664 
015677 

mm 

015771 
016042 
016117 
016171 
016312 
016615 



§1 



016667 
000015 
000040 
000007 
000016 
000041 
000004 
000013 
000006 
000050 



MOD = 
MSG = 
PWR = 
RPT = 
SEG = 
SOFT = 
SRV = 
SUB = 
SW = 
TEST = 
_ .RBAG 
GDDAT 
GETCHR 
GETCMN 
GETPAR 
GETSWI 
GET.TW 
GLBDAT 
GLBEQA 
GLBERR 
GLBSUB 
GLBTXT 
GODRVR= 
GSBIT = 
GSTAT = 
GSTINT 
GSTMES 
G$EXCP= 

"|hili= 

SLOLI= 
SNO = 
SOFFS= 
SOFSI= 
SPRMA= 
SPRMD= 
§PRML= 
§RADA= 
SRADB= 
SRADD= 
$RADF= 
§RADL= 
SRADO= 
$RADT= 
$XFER= 
SYES = 
HCORED 
HCOREQ 
HCQRET 
HCRCME 
HC.ADR 
HC.DEF 
HC.DIA 
HDHOHE 
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000000 
000011 
000017 
000012 
000003 
000005 
000010 
000002 
000014 
000001 
061344 
002166 
060050 
063434 
055126 

mm 

002122 

nmi 

020110 
007052 
000202 

ooooof 

00000^ 



SEQ 0133 



8J??S? 



00400 
00002 
00001 



000400 
OOQ"* 
000 ._ 
000000 
000400 

mm 

Q00002 
000000 
000140 
000000 
000040 
000200 
000120 
000020 
OQQIOO 
000004 
000010 
045256 
045166 
041002 
007264 
040552 
040544 

nmi 



LINEl 
HNE2 



000100 
002144 
054244 
020110 
045052 
054102 
042104 
047054 



000041 
000041 



000041 
000041 
000041 
000167 
040624 
040626 
002146 
020456 
007311 



002270 



§TIM1 
STSTI 
$UNIT 
-CLK. 



m 



045144 
: '5140 
045134 



0451 



066106 
0531" 



002106 
020010 
002032 
002011 
002102 
002064 
017002 
002112 
002070 



002072 '■ 
002112 G 
002040 C 



002046 
037606 
002016 



0021 
0171 



mm 
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031316 
031776 
032430 




HXSECl 

hewpr! 

MEXTAR 

MOOPO = 

MOPINT 

NOPMES 

NOPWR 

NORDY 

MORES 

HO.CLK 

NO. FLA 

MO.LPT 

NO-PTA 

NR = 

HUMBIN 



ml 

017166 

nM 

845102 
063772 
061310 
045306 
000000 
054434 



MUN.LA 
NUH.MO 
NUN. ON 
NUNITS 
NXM s 
NXNNES 



PURFLG 
PWR.FA 



m 



ii\ 



.-0 
000 



-545 
0010 



m 

000014 



RHDNES 
RHHS s 
-LBA 

LCS 

LDA 
RLNP 
RSTACK 
SAVEDOs 
SEARCH 
SBCMSK 
SEEK 



SEGSTA 
SEKIHt 
SEKMES 
sit. MA 
SFfPRM 
SHIFT 
SIGN = 
SIMBCC_ 

SKHiME" 

SHSG 

SPEC.U 

SPTCOD 

SPV.SE 

START 

STARTC 

STARTl 

STHS = 

STRCHR 

STRT.T 

ST. SET 

SONIT. 

SUPERV 

SOPFLA 

SOPV.T 

SUP. PR 

SVCGBL= 

SVCHAN 

SVCINSs 

SVCSUB= 

SVCTAG= 

SYCTST= 

SVHD 



mi 



0377 



mt 



mm 

000000 

mm 



SVCHAN 



SH.PTA 
SYS. ft 



' Rpf LG 
ORPHAN 
- FNC 



mm 

0§4232 
063654 



|NSK3= 
SSAVLs 
SSEGL= 
SSBKO= 
$SEK1= 
K2= 



SEQ 0134 
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T34 
T35 
T36 

T38 

T39 

T4 

T40 

T41 

T42 

T43 

T44 

T45 

T46 

If 

1^ 

I? 

ONITST 
UNIT.D 
UNI. MA 
UOPIMN 
UOPIMX 



SEQ 0135 




T.CNTL 

T.CRC 

T.DMP 

T.LMT 

T.SIZE 





USER.P 

USER.T 

UUT 

VALID. 

YAL.LA 

VAL.SW 

VECMSG 

VECT = 

MCKINT 

WCKMES 

WHY 

WIDTH 

WRCHK = 

WRITE = 

WRLOCK 

MRTINT 

HRTHES 

WTCRDY 

WTDRDY 

XEQDIA 

XEQSUB 

XEQ.CL 

XBQ.CM 

XEQ.IN 

XEQ.LA 





. ABS. 071320 



ERRORS DETECTED: 

DSKZ:CZRLBB^DSKZ!CZRLBB=CZRLBB/ML/CZRLBB.P11,CZRLBB.SUP 
RUN-TIME! 66 62 1 SECONDS 
RUN-TIME RATIO: 323/130=2.4 
CORE USED: 16K (31 PAGES) 



